Mac Mania 2

home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / Session King / New Income Stack < prev next >
MacBinary | 1993-05-11 | 251.8 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: New Income Stack
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Sep 8 07:21:09 1991, modified Tue May 11 17:01:34 1993, creator HyperCard, type HyperCard stack, 156992 bytes "New Income Stack" , at 0x265c0 100537 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Mac HyperCard stack (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 4e 65 77 20 49 6e | 63 6f 6d 65 20 53 74 61 |..New In|come Sta|
|00000010| 63 6b 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ck......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 02 65 40 00 | 01 88 b9 a4 ef b8 25 a8 |.....e@.|......%.|
|00000060| 15 c4 ae 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bd c9 00 00 |........|........|
|00000080| 00 00 3a 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..:.STAK|........|
|00000090| 00 00 00 0a 00 02 65 40 | 00 00 3a 00 00 00 00 00 |......e@|..:.....|
|000000a0| 00 00 00 00 00 00 00 03 | 00 00 22 90 00 00 00 0f |........|..".....|
|000000b0| 00 00 21 29 00 00 09 91 | 00 00 00 00 00 00 00 00 |..!)....|........|
|000000c0| 00 00 28 7b 76 e4 8d e1 | 00 05 00 00 10 00 00 00 |..({v...|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 01 80 00 02 01 80 00 | 02 01 80 00 02 01 80 00 |........|........|
|000000f0| 66 bd 5f 72 00 00 00 00 | 00 00 00 00 01 e0 02 80 |f._r....|........|
|00000100| 00 00 00 00 01 e0 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d 8d 00 00 0c 6f | 01 e0 02 80 00 00 00 00 |.......o|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 6f 6e 20 6f 70 65 6e 53 | 74 61 63 6b 0d 67 6c 6f |on openS|tack.glo|
|00000690| 62 61 6c 20 73 74 75 64 | 69 6f 6c 69 73 74 2c 69 |bal stud|iolist,i|
|000006a0| 6d 70 6f 72 74 2c 77 68 | 65 72 65 6c 61 73 74 66 |mport,wh|erelastf|
|000006b0| 6f 75 6e 64 2c 72 65 66 | 44 61 74 65 2c 6b 65 79 |ound,ref|Date,key|
|000006c0| 45 76 65 6e 74 2c 68 65 | 6c 70 54 6f 70 69 63 73 |Event,he|lpTopics|
|000006d0| 0d 67 6c 6f 62 61 6c 20 | 63 6c 69 65 6e 74 4c 69 |.global |clientLi|
|000006e0| 73 74 0d 73 65 74 20 75 | 73 65 72 6c 65 76 65 6c |st.set u|serlevel|
|000006f0| 20 74 6f 20 35 0d 0d 69 | 66 20 68 69 6c 69 74 65 | to 5..i|f hilite|
|00000700| 20 6f 66 20 62 67 20 62 | 74 6e 20 22 75 73 65 20 | of bg b|tn "use |
|00000710| 70 61 73 73 77 6f 72 64 | 22 20 6f 66 20 63 64 20 |password|" of cd |
|00000720| 31 20 69 73 20 74 72 75 | 65 20 74 68 65 6e 0d 72 |1 is tru|e then.r|
|00000730| 65 70 65 61 74 20 66 6f | 72 20 33 20 74 69 6d 65 |epeat fo|r 3 time|
|00000740| 73 0d 73 68 6f 77 20 63 | 64 20 62 74 6e 20 22 68 |s.show c|d btn "h|
|00000750| 69 64 65 72 22 0d 73 68 | 6f 77 20 63 64 20 62 74 |ider".sh|ow cd bt|
|00000760| 6e 20 22 68 69 64 65 72 | 32 22 0d 73 68 6f 77 20 |n "hider|2".show |
|00000770| 63 64 20 62 74 6e 20 22 | 68 69 64 65 72 33 22 0d |cd btn "|hider3".|
|00000780| 73 68 6f 77 20 63 64 20 | 62 74 6e 20 22 68 69 64 |show cd |btn "hid|
|00000790| 65 72 34 22 0d 61 73 6b | 20 22 57 68 61 74 20 69 |er4".ask| "What i|
|000007a0| 73 20 74 68 65 20 70 61 | 73 73 77 6f 72 64 3f 22 |s the pa|ssword?"|
|000007b0| 0d 69 66 20 69 74 20 69 | 73 20 65 6d 70 74 79 20 |.if it i|s empty |
|000007c0| 74 68 65 6e 20 64 6f 6d | 65 6e 75 20 22 71 75 69 |then dom|enu "qui|
|000007d0| 74 20 68 79 70 65 72 63 | 61 72 64 22 0d 69 66 20 |t hyperc|ard".if |
|000007e0| 69 74 20 ad 20 62 67 20 | 66 6c 64 20 22 70 61 73 |it . bg |fld "pas|
|000007f0| 73 77 6f 72 64 22 20 6f | 66 20 63 64 20 31 20 74 |sword" o|f cd 1 t|
|00000800| 68 65 6e 0d 64 6f 6d 65 | 6e 75 20 22 71 75 69 74 |hen.dome|nu "quit|
|00000810| 20 68 79 70 65 72 63 61 | 72 64 22 0d 65 6c 73 65 | hyperca|rd".else|
|00000820| 0d 68 69 64 65 20 63 64 | 20 62 74 6e 20 22 68 69 |.hide cd| btn "hi|
|00000830| 64 65 72 22 0d 68 69 64 | 65 20 63 64 20 62 74 6e |der".hid|e cd btn|
|00000840| 20 22 68 69 64 65 72 32 | 22 0d 68 69 64 65 20 63 | "hider2|".hide c|
|00000850| 64 20 62 74 6e 20 22 68 | 69 64 65 72 33 22 0d 68 |d btn "h|ider3".h|
|00000860| 69 64 65 20 63 64 20 62 | 74 6e 20 22 68 69 64 65 |ide cd b|tn "hide|
|00000870| 72 34 22 0d 65 78 69 74 | 20 72 65 70 65 61 74 0d |r4".exit| repeat.|
|00000880| 65 6e 64 20 69 66 0d 65 | 6e 64 20 72 65 70 65 61 |end if.e|nd repea|
|00000890| 74 0d 65 6c 73 65 0d 68 | 69 64 65 20 63 64 20 62 |t.else.h|ide cd b|
|000008a0| 74 6e 20 22 68 69 64 65 | 72 22 0d 68 69 64 65 20 |tn "hide|r".hide |
|000008b0| 63 64 20 62 74 6e 20 22 | 68 69 64 65 72 32 22 0d |cd btn "|hider2".|
|000008c0| 68 69 64 65 20 63 64 20 | 62 74 6e 20 22 68 69 64 |hide cd |btn "hid|
|000008d0| 65 72 33 22 0d 68 69 64 | 65 20 63 64 20 62 74 6e |er3".hid|e cd btn|
|000008e0| 20 22 68 69 64 65 72 34 | 22 0d 65 6e 64 20 69 66 | "hider4|".end if|
|000008f0| 0d 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |..put em|pty into|
|00000900| 20 68 65 6c 70 54 6f 70 | 69 63 73 0d 70 75 74 20 | helpTop|ics.put |
|00000910| 31 20 69 6e 74 6f 20 78 | 0d 72 65 70 65 61 74 20 |1 into x|.repeat |
|00000920| 66 6f 72 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |for the |number o|
|00000930| 66 20 6c 69 6e 65 73 20 | 69 6e 20 63 64 20 66 6c |f lines |in cd fl|
|00000940| 64 20 22 68 65 6c 70 74 | 6f 70 69 63 73 22 20 6f |d "helpt|opics" o|
|00000950| 66 20 63 64 20 31 0d 70 | 75 74 20 28 6c 69 6e 65 |f cd 1.p|ut (line|
|00000960| 20 78 20 6f 66 20 63 64 | 20 66 6c 64 20 22 68 65 | x of cd| fld "he|
|00000970| 6c 70 54 6f 70 69 63 73 | 22 20 6f 66 20 63 64 20 |lpTopics|" of cd |
|00000980| 31 29 20 26 20 72 65 74 | 75 72 6e 20 61 66 74 65 |1) & ret|urn afte|
|00000990| 72 20 68 65 6c 70 54 6f | 70 69 63 73 0d 61 64 64 |r helpTo|pics.add|
|000009a0| 20 31 20 74 6f 20 78 0d | 65 6e 64 20 72 65 70 65 | 1 to x.|end repe|
|000009b0| 61 74 0d 0d 70 75 74 20 | 66 61 6c 73 65 20 69 6e |at..put |false in|
|000009c0| 74 6f 20 6b 65 79 45 76 | 65 6e 74 0d 70 75 74 20 |to keyEv|ent.put |
|000009d0| 32 37 37 34 33 39 30 34 | 30 30 20 69 6e 74 6f 20 |27743904|00 into |
|000009e0| 72 65 66 44 61 74 65 0d | 70 75 74 20 65 6d 70 74 |refDate.|put empt|
|000009f0| 79 20 69 6e 74 6f 20 77 | 68 65 72 65 6c 61 73 74 |y into w|herelast|
|00000a00| 66 6f 75 6e 64 0d 70 75 | 74 20 65 6d 70 74 79 20 |found.pu|t empty |
|00000a10| 69 6e 74 6f 20 6d 65 6e | 75 0d 73 65 74 20 75 73 |into men|u.set us|
|00000a20| 65 72 6c 65 76 65 6c 20 | 74 6f 20 35 0d 68 69 64 |erlevel |to 5.hid|
|00000a30| 65 20 6d 73 67 0d 68 69 | 64 65 20 6d 65 6e 75 62 |e msg.hi|de menub|
|00000a40| 61 72 0d 69 66 20 63 68 | 61 72 20 31 20 74 6f 20 |ar.if ch|ar 1 to |
|00000a50| 32 20 6f 66 20 74 68 65 | 20 73 68 6f 72 74 20 64 |2 of the| short d|
|00000a60| 61 74 65 20 3d 20 22 31 | 32 22 20 74 68 65 6e 0d |ate = "1|2" then.|
|00000a70| 61 6e 73 77 65 72 20 22 | 44 6f 6e 27 74 20 66 6f |answer "|Don't fo|
|00000a80| 72 67 65 74 20 74 6f 20 | 63 68 61 6e 67 65 20 74 |rget to |change t|
|00000a90| 68 65 20 49 4d 50 4f 52 | 54 20 41 2f 52 20 62 75 |he IMPOR|T A/R bu|
|00000aa0| 74 74 6f 6e 20 66 6f 72 | 20 22 26 c2 0d 22 69 6d |tton for| "&.."im|
|00000ab0| 70 6f 72 74 69 6e 67 20 | 31 39 39 32 20 41 2f 52 |porting |1992 A/R|
|00000ac0| 2e 22 0d 65 6e 64 20 69 | 66 0d 63 6f 6c 6f 72 73 |.".end i|f.colors|
|00000ad0| 63 72 65 65 6e 20 62 6c | 75 65 2c 77 68 69 74 65 |creen bl|ue,white|
|00000ae0| 0d 69 66 20 69 6d 70 6f | 72 74 20 ad 20 31 20 74 |.if impo|rt . 1 t|
|00000af0| 68 65 6e 0d 61 73 73 65 | 6d 62 6c 65 4c 69 73 74 |hen.asse|mbleList|
|00000b00| 0d 65 6e 64 20 69 66 0d | 70 75 74 20 28 63 64 20 |.end if.|put (cd |
|00000b10| 66 6c 64 20 22 73 74 75 | 64 69 6f 4c 69 73 74 22 |fld "stu|dioList"|
|00000b20| 20 6f 66 20 63 64 20 22 | 74 6f 74 61 6c 73 22 29 | of cd "|totals")|
|00000b30| 20 26 20 72 65 74 75 72 | 6e 20 69 6e 74 6f 20 73 | & retur|n into s|
|00000b40| 74 75 64 69 6f 4c 69 73 | 74 0d 0d 66 69 67 75 72 |tudioLis|t..figur|
|00000b50| 65 50 61 73 74 44 75 65 | 0d 0d 69 66 20 68 69 6c |ePastDue|..if hil|
|00000b60| 69 74 65 20 6f 66 20 62 | 67 20 62 74 6e 20 22 73 |ite of b|g btn "s|
|00000b70| 74 61 79 20 68 65 72 65 | 20 61 74 20 73 74 61 72 |tay here| at star|
|00000b80| 74 75 70 22 20 69 73 20 | 66 61 6c 73 65 20 74 68 |tup" is |false th|
|00000b90| 65 6e 0d 67 6f 20 63 64 | 20 28 77 6f 72 64 20 31 |en.go cd| (word 1|
|00000ba0| 20 6f 66 20 69 74 65 6d | 20 32 20 6f 66 20 74 68 | of item| 2 of th|
|00000bb0| 65 20 6c 6f 6e 67 20 64 | 61 74 65 29 0d 65 6e 64 |e long d|ate).end|
|00000bc0| 20 69 66 0d 65 6e 64 20 | 6f 70 65 6e 73 74 61 63 | if.end |openstac|
|00000bd0| 6b 0d 0d 6f 6e 20 63 6c | 6f 73 65 53 74 61 63 6b |k..on cl|oseStack|
|00000be0| 0d 69 66 20 74 68 65 72 | 65 20 69 73 20 61 20 77 |.if ther|e is a w|
|00000bf0| 69 6e 64 6f 77 20 22 61 | 62 6f 75 74 20 73 65 73 |indow "a|bout ses|
|00000c00| 73 69 6f 6e 20 6b 69 6e | 67 aa 22 20 74 68 65 6e |sion kin|g." then|
|00000c10| 0d 63 6c 6f 73 65 20 77 | 69 6e 64 6f 77 20 22 61 |.close w|indow "a|
|00000c20| 62 6f 75 74 20 73 65 73 | 73 69 6f 6e 20 6b 69 6e |bout ses|sion kin|
|00000c30| 67 aa 22 0d 65 6e 64 20 | 69 66 0d 0d 69 66 20 62 |g.".end |if..if b|
|00000c40| 67 20 66 6c 64 20 22 77 | 68 69 63 68 42 72 65 61 |g fld "w|hichBrea|
|00000c50| 6b 64 6f 77 6e 22 20 6f | 66 20 63 64 20 31 20 ad |kdown" o|f cd 1 .|
|00000c60| 20 22 41 6e 6e 75 61 6c | 22 20 74 68 65 6e 0d 70 | "Annual|" then.p|
|00000c70| 75 74 20 63 64 20 66 6c | 64 20 22 70 65 72 63 65 |ut cd fl|d "perce|
|00000c80| 6e 74 61 67 65 73 54 65 | 6d 70 22 20 6f 66 20 63 |ntagesTe|mp" of c|
|00000c90| 64 20 31 20 69 6e 74 6f | 20 62 67 20 66 6c 64 20 |d 1 into| bg fld |
|00000ca0| 22 70 65 72 63 65 6e 74 | 61 67 65 73 22 20 6f 66 |"percent|ages" of|
|00000cb0| 20 63 64 20 31 0d 70 75 | 74 20 63 64 20 66 6c 64 | cd 1.pu|t cd fld|
|00000cc0| 20 22 62 72 65 61 6b 64 | 6f 77 6e 54 65 6d 70 22 | "breakd|ownTemp"|
|00000cd0| 20 6f 66 20 63 64 20 31 | 20 69 6e 74 6f 20 62 67 | of cd 1| into bg|
|00000ce0| 20 66 6c 64 20 22 62 72 | 65 61 6b 64 6f 77 6e 22 | fld "br|eakdown"|
|00000cf0| 20 6f 66 20 63 64 20 31 | 0d 70 75 74 20 22 41 6e | of cd 1|.put "An|
|00000d00| 6e 75 61 6c 22 20 69 6e | 74 6f 20 62 67 20 66 6c |nual" in|to bg fl|
|00000d10| 64 20 22 77 68 69 63 68 | 62 72 65 61 6b 64 6f 77 |d "which|breakdow|
|00000d20| 6e 22 20 6f 66 20 63 64 | 20 31 0d 65 6e 64 20 69 |n" of cd| 1.end i|
|00000d30| 66 0d 0d 69 66 20 68 69 | 6c 69 74 65 20 6f 66 20 |f..if hi|lite of |
|00000d40| 62 67 20 62 74 6e 20 22 | 75 73 65 20 70 61 73 73 |bg btn "|use pass|
|00000d50| 77 6f 72 64 22 20 6f 66 | 20 63 64 20 31 20 69 73 |word" of| cd 1 is|
|00000d60| 20 74 72 75 65 20 74 68 | 65 6e 0d 67 6f 20 63 64 | true th|en.go cd|
|00000d70| 20 31 0d 73 68 6f 77 20 | 63 64 20 62 74 6e 20 22 | 1.show |cd btn "|
|00000d80| 68 69 64 65 72 22 0d 73 | 68 6f 77 20 63 64 20 62 |hider".s|how cd b|
|00000d90| 74 6e 20 22 68 69 64 65 | 72 32 22 0d 73 68 6f 77 |tn "hide|r2".show|
|00000da0| 20 63 64 20 62 74 6e 20 | 22 68 69 64 65 72 33 22 | cd btn |"hider3"|
|00000db0| 0d 73 68 6f 77 20 63 64 | 20 62 74 6e 20 22 68 69 |.show cd| btn "hi|
|00000dc0| 64 65 72 34 22 0d 65 6e | 64 20 69 66 0d 67 6c 6f |der4".en|d if.glo|
|00000dd0| 62 61 6c 20 6b 65 79 45 | 76 65 6e 74 0d 68 69 64 |bal keyE|vent.hid|
|00000de0| 65 20 6d 65 6e 75 62 61 | 72 0d 69 66 20 6b 65 79 |e menuba|r.if key|
|00000df0| 45 76 65 6e 74 20 69 73 | 20 74 72 75 65 20 74 68 |Event is| true th|
|00000e00| 65 6e 0d 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 67 |en.lock |screen.g|
|00000e10| 6f 20 63 64 20 31 0d 65 | 78 69 74 20 74 6f 20 68 |o cd 1.e|xit to h|
|00000e20| 79 70 65 72 63 61 72 64 | 0d 65 6e 64 20 69 66 0d |ypercard|.end if.|
|00000e30| 0d 69 66 20 74 68 65 20 | 66 72 65 65 73 69 7a 65 |.if the |freesize|
|00000e40| 20 6f 66 20 74 68 69 73 | 20 73 74 61 63 6b 20 3e | of this| stack >|
|00000e50| 20 31 30 30 30 30 20 74 | 68 65 6e 0d 64 6f 6d 65 | 10000 t|hen.dome|
|00000e60| 6e 75 20 22 63 6f 6d 70 | 61 63 74 20 73 74 61 63 |nu "comp|act stac|
|00000e70| 6b 22 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 63 6c |k".end i|f.end cl|
|00000e80| 6f 73 65 53 74 61 63 6b | 0d 0d 6f 6e 20 61 73 73 |oseStack|..on ass|
|00000e90| 65 6d 62 6c 65 4c 69 73 | 74 0d 67 6c 6f 62 61 6c |embleLis|t.global|
|00000ea0| 20 63 6c 69 65 6e 74 4c | 69 73 74 0d 70 75 74 20 | clientL|ist.put |
|00000eb0| 65 6d 70 74 79 20 69 6e | 74 6f 20 63 6c 69 65 6e |empty in|to clien|
|00000ec0| 74 4c 69 73 74 0d 70 75 | 74 20 31 20 69 6e 74 6f |tList.pu|t 1 into|
|00000ed0| 20 78 0d 72 65 70 65 61 | 74 20 66 6f 72 20 74 68 | x.repea|t for th|
|00000ee0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |e number| of line|
|00000ef0| 73 20 69 6e 20 20 62 67 | 20 66 6c 64 20 22 63 6c |s in  bg| fld "cl|
|00000f00| 69 65 6e 74 4c 69 73 74 | 22 20 6f 66 20 63 64 20 |ientList|" of cd |
|00000f10| 31 0d 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |1.set cu|rsor to |
|00000f20| 62 75 73 79 0d 70 75 74 | 20 28 6c 69 6e 65 20 78 |busy.put| (line x|
|00000f30| 20 6f 66 20 62 67 20 66 | 6c 64 20 22 63 6c 69 65 | of bg f|ld "clie|
|00000f40| 6e 74 4c 69 73 74 22 20 | 6f 66 20 63 64 20 31 29 |ntList" |of cd 1)|
|00000f50| 20 26 20 72 65 74 75 72 | 6e 20 61 66 74 65 72 20 | & retur|n after |
|00000f60| 63 6c 69 65 6e 74 4c 69 | 73 74 0d 70 75 74 20 78 |clientLi|st.put x|
|00000f70| 20 2b 20 31 20 69 6e 74 | 6f 20 78 0d 65 6e 64 20 | + 1 int|o x.end |
|00000f80| 72 65 70 65 61 74 0d 65 | 6e 64 20 61 73 73 65 6d |repeat.e|nd assem|
|00000f90| 62 6c 65 4c 69 73 74 0d | 0d 6f 6e 20 69 64 6c 65 |bleList.|.on idle|
|00000fa0| 0d 67 6c 6f 62 61 6c 20 | 6b 65 79 45 76 65 6e 74 |.global |keyEvent|
|00000fb0| 0d 69 66 20 6b 65 79 70 | 72 65 73 73 65 64 20 69 |.if keyp|ressed i|
|00000fc0| 73 20 74 72 75 65 20 74 | 68 65 6e 0d 70 75 74 20 |s true t|hen.put |
|00000fd0| 74 72 75 65 20 69 6e 74 | 6f 20 6b 65 79 45 76 65 |true int|o keyEve|
|00000fe0| 6e 74 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 64 |nt.end i|f.end id|
|00000ff0| 6c 65 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 64 61 74 |le..func|tion dat|
|00001000| 65 56 65 72 69 66 79 20 | 63 6f 6e 74 61 69 6e 65 |eVerify |containe|
|00001010| 72 0d 70 75 74 20 74 68 | 65 20 63 68 61 72 54 6f |r.put th|e charTo|
|00001020| 4e 75 6d 20 6f 66 20 22 | 30 22 20 69 6e 74 6f 20 |Num of "|0" into |
|00001030| 62 61 73 65 0d 70 75 74 | 20 74 68 65 20 63 68 61 |base.put| the cha|
|00001040| 72 54 6f 4e 75 6d 20 6f | 66 20 22 2f 22 20 69 6e |rToNum o|f "/" in|
|00001050| 74 6f 20 61 73 6c 61 73 | 68 0d 70 75 74 20 65 6d |to aslas|h.put em|
|00001060| 70 74 79 20 69 6e 74 6f | 20 69 73 61 64 61 74 65 |pty into| isadate|
|00001070| 0d 70 75 74 20 30 20 69 | 6e 74 6f 20 73 74 61 74 |.put 0 i|nto stat|
|00001080| 65 0d 70 75 74 20 30 20 | 69 6e 74 6f 20 74 68 65 |e.put 0 |into the|
|00001090| 4d 6f 6e 74 68 0d 70 75 | 74 20 30 20 69 6e 74 6f |Month.pu|t 0 into|
|000010a0| 20 74 68 65 59 65 61 72 | 0d 70 75 74 20 30 20 69 | theYear|.put 0 i|
|000010b0| 6e 74 6f 20 74 68 65 44 | 61 79 0d 72 65 70 65 61 |nto theD|ay.repea|
|000010c0| 74 20 77 69 74 68 20 69 | 20 3d 20 31 20 74 6f 20 |t with i| = 1 to |
|000010d0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 |the numb|er of ch|
|000010e0| 61 72 61 63 74 65 72 73 | 20 69 6e 20 6c 69 6e 65 |aracters| in line|
|000010f0| 20 31 20 6f 66 20 63 6f | 6e 74 61 69 6e 65 72 0d | 1 of co|ntainer.|
|00001100| 70 75 74 20 28 74 68 65 | 20 63 68 61 72 54 6f 4e |put (the| charToN|
|00001110| 75 6d 20 6f 66 20 63 68 | 61 72 20 69 20 6f 66 20 |um of ch|ar i of |
|00001120| 63 6f 6e 74 61 69 6e 65 | 72 29 20 69 6e 74 6f 20 |containe|r) into |
|00001130| 74 65 73 74 0d 69 66 20 | 73 74 61 74 65 20 69 73 |test.if |state is|
|00001140| 20 30 20 74 68 65 6e 0d | 69 66 20 28 28 74 65 73 | 0 then.|if ((tes|
|00001150| 74 2d 62 61 73 65 29 20 | 3e 3d 20 30 29 20 61 6e |t-base) |>= 0) an|
|00001160| 64 20 28 28 74 65 73 74 | 2d 62 61 73 65 29 20 3c |d ((test|-base) <|
|00001170| 3d 20 39 29 20 74 68 65 | 6e 0d 70 75 74 20 28 74 |= 9) the|n.put (t|
|00001180| 68 65 4d 6f 6e 74 68 2a | 31 30 20 2b 20 28 74 65 |heMonth*|10 + (te|
|00001190| 73 74 2d 62 61 73 65 29 | 29 20 69 6e 74 6f 20 74 |st-base)|) into t|
|000011a0| 68 65 4d 6f 6e 74 68 0d | 69 66 20 74 68 65 4d 6f |heMonth.|if theMo|
|000011b0| 6e 74 68 20 3e 20 31 32 | 20 74 68 65 6e 0d 70 75 |nth > 12| then.pu|
|000011c0| 74 20 74 68 65 4d 6f 6e | 74 68 20 26 26 20 22 69 |t theMon|th && "i|
|000011d0| 73 20 61 6e 20 69 6c 6c | 65 67 61 6c 20 6d 6f 6e |s an ill|egal mon|
|000011e0| 74 68 2e 22 20 69 6e 74 | 6f 20 69 73 61 64 61 74 |th." int|o isadat|
|000011f0| 65 0d 72 65 74 75 72 6e | 20 69 73 61 64 61 74 65 |e.return| isadate|
|00001200| 0d 65 6e 64 20 69 66 0d | 65 6c 73 65 20 69 66 20 |.end if.|else if |
|00001210| 74 65 73 74 20 69 73 20 | 61 73 6c 61 73 68 20 74 |test is |aslash t|
|00001220| 68 65 6e 0d 69 66 20 74 | 68 65 4d 6f 6e 74 68 20 |hen.if t|heMonth |
|00001230| 3e 20 30 20 74 68 65 6e | 0d 70 75 74 20 31 20 69 |> 0 then|.put 1 i|
|00001240| 6e 74 6f 20 73 74 61 74 | 65 0d 65 6c 73 65 0d 70 |nto stat|e.else.p|
|00001250| 75 74 20 22 4d 6f 6e 74 | 68 20 69 73 20 6d 69 73 |ut "Mont|h is mis|
|00001260| 73 69 6e 67 2e 22 20 69 | 6e 74 6f 20 69 73 61 64 |sing." i|nto isad|
|00001270| 61 74 65 0d 72 65 74 75 | 72 6e 20 69 73 61 64 61 |ate.retu|rn isada|
|00001280| 74 65 0d 65 6e 64 20 69 | 66 0d 65 6c 73 65 0d 70 |te.end i|f.else.p|
|00001290| 75 74 20 22 49 6c 6c 65 | 67 61 6c 20 63 68 61 72 |ut "Ille|gal char|
|000012a0| 61 63 74 65 72 20 69 6e | 20 6d 6f 6e 74 68 2e 22 |acter in| month."|
|000012b0| 20 69 6e 74 6f 20 69 73 | 61 64 61 74 65 0d 72 65 | into is|adate.re|
|000012c0| 74 75 72 6e 20 69 73 61 | 64 61 74 65 0d 65 6e 64 |turn isa|date.end|
|000012d0| 20 69 66 0d 65 6c 73 65 | 20 69 66 20 73 74 61 74 | if.else| if stat|
|000012e0| 65 20 69 73 20 31 20 74 | 68 65 6e 0d 69 66 20 28 |e is 1 t|hen.if (|
|000012f0| 28 74 65 73 74 2d 62 61 | 73 65 29 20 3e 3d 20 30 |(test-ba|se) >= 0|
|00001300| 29 20 61 6e 64 20 28 28 | 74 65 73 74 2d 62 61 73 |) and ((|test-bas|
|00001310| 65 29 20 3c 3d 20 39 29 | 20 74 68 65 6e 0d 70 75 |e) <= 9)| then.pu|
|00001320| 74 20 74 68 65 44 61 79 | 20 2a 20 31 30 20 2b 20 |t theDay| * 10 + |
|00001330| 28 74 65 73 74 2d 62 61 | 73 65 29 20 69 6e 74 6f |(test-ba|se) into|
|00001340| 20 74 68 65 44 61 79 0d | 69 66 20 74 68 65 44 61 | theDay.|if theDa|
|00001350| 79 20 3e 20 33 31 20 74 | 68 65 6e 0d 70 75 74 20 |y > 31 t|hen.put |
|00001360| 74 68 65 44 61 79 20 26 | 26 20 22 69 73 20 61 6e |theDay &|& "is an|
|00001370| 20 69 6c 6c 65 67 61 6c | 20 64 61 79 2e 22 20 69 | illegal| day." i|
|00001380| 6e 74 6f 20 69 73 61 64 | 61 74 65 0d 72 65 74 75 |nto isad|ate.retu|
|00001390| 72 6e 20 69 73 61 64 61 | 74 65 0d 65 6c 73 65 20 |rn isada|te.else |
|000013a0| 69 66 20 74 68 65 44 61 | 79 20 3e 20 33 30 20 74 |if theDa|y > 30 t|
|000013b0| 68 65 6e 0d 69 66 20 74 | 68 65 4d 6f 6e 74 68 20 |hen.if t|heMonth |
|000013c0| 69 73 20 39 20 6f 72 20 | 74 68 65 4d 6f 6e 74 68 |is 9 or |theMonth|
|000013d0| 20 69 73 20 34 20 6f 72 | 20 c2 0d 74 68 65 4d 6f | is 4 or| ..theMo|
|000013e0| 6e 74 68 20 69 73 20 36 | 20 6f 72 20 74 68 65 4d |nth is 6| or theM|
|000013f0| 6f 6e 74 68 20 69 73 20 | 31 31 20 6f 72 20 74 68 |onth is |11 or th|
|00001400| 65 4d 6f 6e 74 68 20 69 | 73 20 32 20 74 68 65 6e |eMonth i|s 2 then|
|00001410| 0d 70 75 74 20 74 68 65 | 44 61 79 20 26 26 20 22 |.put the|Day && "|
|00001420| 69 73 20 61 6e 20 69 6c | 6c 65 67 61 6c 20 64 61 |is an il|legal da|
|00001430| 79 2c 20 74 68 69 73 20 | 6d 6f 6e 74 68 2e 22 20 |y, this |month." |
|00001440| 69 6e 74 6f 20 69 73 61 | 64 61 74 65 0d 72 65 74 |into isa|date.ret|
|00001450| 75 72 6e 20 69 73 61 64 | 61 74 65 0d 65 6e 64 20 |urn isad|ate.end |
|00001460| 69 66 0d 65 6c 73 65 20 | 69 66 20 74 68 65 44 61 |if.else |if theDa|
|00001470| 79 20 3e 20 32 39 20 61 | 6e 64 20 74 68 65 4d 6f |y > 29 a|nd theMo|
|00001480| 6e 74 68 20 69 73 20 32 | 20 74 68 65 6e 0d 70 75 |nth is 2| then.pu|
|00001490| 74 20 74 68 65 44 61 79 | 20 26 26 20 22 69 73 20 |t theDay| && "is |
|000014a0| 61 6e 20 69 6c 6c 65 67 | 61 6c 20 64 61 79 2c 20 |an illeg|al day, |
|000014b0| 74 68 69 73 20 6d 6f 6e | 74 68 2e 22 20 69 6e 74 |this mon|th." int|
|000014c0| 6f 20 69 73 61 64 61 74 | 65 0d 72 65 74 75 72 6e |o isadat|e.return|
|000014d0| 20 69 73 61 64 61 74 65 | 0d 65 6e 64 20 69 66 0d | isadate|.end if.|
|000014e0| 65 6c 73 65 20 69 66 20 | 74 65 73 74 20 69 73 20 |else if |test is |
|000014f0| 61 73 6c 61 73 68 20 74 | 68 65 6e 0d 69 66 20 74 |aslash t|hen.if t|
|00001500| 68 65 44 61 79 20 3e 20 | 30 20 74 68 65 6e 0d 70 |heDay > |0 then.p|
|00001510| 75 74 20 32 20 69 6e 74 | 6f 20 73 74 61 74 65 0d |ut 2 int|o state.|
|00001520| 65 6c 73 65 0d 70 75 74 | 20 22 44 61 79 20 69 73 |else.put| "Day is|
|00001530| 20 6d 69 73 73 69 6e 67 | 2e 22 20 69 6e 74 6f 20 | missing|." into |
|00001540| 69 73 61 64 61 74 65 0d | 72 65 74 75 72 6e 20 69 |isadate.|return i|
|00001550| 73 61 64 61 74 65 0d 65 | 6e 64 20 69 66 0d 65 6c |sadate.e|nd if.el|
|00001560| 73 65 0d 70 75 74 20 22 | 49 6c 6c 65 67 61 6c 20 |se.put "|Illegal |
|00001570| 63 68 61 72 61 63 74 65 | 72 20 69 6e 20 64 61 79 |characte|r in day|
|00001580| 2e 22 20 69 6e 74 6f 20 | 69 73 61 64 61 74 65 0d |." into |isadate.|
|00001590| 72 65 74 75 72 6e 20 69 | 73 61 64 61 74 65 0d 65 |return i|sadate.e|
|000015a0| 6e 64 20 69 66 0d 65 6c | 73 65 20 69 66 20 73 74 |nd if.el|se if st|
|000015b0| 61 74 65 20 69 73 20 32 | 20 74 68 65 6e 0d 69 66 |ate is 2| then.if|
|000015c0| 20 28 28 74 65 73 74 2d | 62 61 73 65 29 20 3e 3d | ((test-|base) >=|
|000015d0| 20 30 29 20 61 6e 64 20 | 28 28 74 65 73 74 2d 62 | 0) and |((test-b|
|000015e0| 61 73 65 29 20 3c 3d 20 | 39 29 20 74 68 65 6e 0d |ase) <= |9) then.|
|000015f0| 70 75 74 20 28 74 68 65 | 59 65 61 72 20 2a 20 31 |put (the|Year * 1|
|00001600| 30 20 2b 20 28 74 65 73 | 74 2d 62 61 73 65 29 29 |0 + (tes|t-base))|
|00001610| 20 69 6e 74 6f 20 74 68 | 65 59 65 61 72 0d 69 66 | into th|eYear.if|
|00001620| 20 74 68 65 59 65 61 72 | 20 3e 20 39 39 20 74 68 | theYear| > 99 th|
|00001630| 65 6e 0d 70 75 74 20 22 | 59 65 61 72 20 69 73 20 |en.put "|Year is |
|00001640| 74 6f 6f 20 62 69 67 2e | 22 69 6e 74 6f 20 69 73 |too big.|"into is|
|00001650| 61 64 61 74 65 0d 72 65 | 74 75 72 6e 20 69 73 61 |adate.re|turn isa|
|00001660| 64 61 74 65 0d 65 6e 64 | 20 69 66 0d 65 6c 73 65 |date.end| if.else|
|00001670| 0d 70 75 74 20 22 49 6c | 6c 65 67 61 6c 20 63 68 |.put "Il|legal ch|
|00001680| 61 72 61 63 74 65 72 20 | 69 6e 20 79 65 61 72 2e |aracter |in year.|
|00001690| 22 20 69 6e 74 6f 20 69 | 73 61 64 61 74 65 0d 72 |" into i|sadate.r|
|000016a0| 65 74 75 72 6e 20 69 73 | 61 64 61 74 65 0d 65 6e |eturn is|adate.en|
|000016b0| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |d if.end| if.end |
|000016c0| 72 65 70 65 61 74 0d 69 | 66 20 74 68 65 4d 6f 6e |repeat.i|f theMon|
|000016d0| 74 68 20 69 73 20 30 20 | 74 68 65 6e 0d 70 75 74 |th is 0 |then.put|
|000016e0| 20 22 4d 6f 6e 74 68 2c | 20 64 61 79 2c 20 61 6e | "Month,| day, an|
|000016f0| 64 20 79 65 61 72 20 61 | 72 65 20 6d 69 73 73 69 |d year a|re missi|
|00001700| 6e 67 2e 22 20 69 6e 74 | 6f 20 69 73 61 64 61 74 |ng." int|o isadat|
|00001710| 65 0d 65 6c 73 65 20 69 | 66 20 74 68 65 44 61 79 |e.else i|f theDay|
|00001720| 20 69 73 20 30 20 74 68 | 65 6e 0d 70 75 74 20 22 | is 0 th|en.put "|
|00001730| 44 61 79 20 61 6e 64 20 | 79 65 61 72 20 61 72 65 |Day and |year are|
|00001740| 20 6d 69 73 73 69 6e 67 | 2e 22 20 69 6e 74 6f 20 | missing|." into |
|00001750| 69 73 61 64 61 74 65 0d | 65 6c 73 65 20 69 66 20 |isadate.|else if |
|00001760| 74 68 65 59 65 61 72 20 | 69 73 20 30 20 74 68 65 |theYear |is 0 the|
|00001770| 6e 0d 70 75 74 20 22 59 | 65 61 72 20 69 73 20 6d |n.put "Y|ear is m|
|00001780| 69 73 73 69 6e 67 2e 22 | 20 69 6e 74 6f 20 69 73 |issing."| into is|
|00001790| 61 64 61 74 65 0d 65 6e | 64 20 69 66 0d 72 65 74 |adate.en|d if.ret|
|000017a0| 75 72 6e 20 69 73 61 64 | 61 74 65 0d 65 6e 64 20 |urn isad|ate.end |
|000017b0| 64 61 74 65 56 65 72 69 | 66 79 0d 0d 6f 6e 20 69 |dateVeri|fy..on i|
|000017c0| 6e 69 74 69 61 6c 69 7a | 65 0d 61 6e 73 77 65 72 |nitializ|e.answer|
|000017d0| 20 22 44 6f 20 79 6f 75 | 20 77 61 6e 74 20 74 6f | "Do you| want to|
|000017e0| 20 50 45 52 4d 41 4e 45 | 4e 54 4c 59 20 64 65 6c | PERMANE|NTLY del|
|000017f0| 65 74 65 20 61 6c 6c 20 | 64 61 74 61 20 66 72 6f |ete all |data fro|
|00001800| 6d 20 73 74 61 63 6b 20 | 22 20 26 20 71 75 6f 74 |m stack |" & quot|
|00001810| 65 20 26 20 74 68 65 20 | 73 68 6f 72 74 20 6e 61 |e & the |short na|
|00001820| 6d 65 20 6f 66 20 74 68 | 69 73 20 73 74 61 63 6b |me of th|is stack|
|00001830| 20 26 c2 0d 71 75 6f 74 | 65 20 26 20 22 3f 22 20 | &..quot|e & "?" |
|00001840| 77 69 74 68 20 22 59 65 | 73 22 20 6f 72 20 22 4e |with "Ye|s" or "N|
|00001850| 6f 22 0d 69 66 20 69 74 | 20 69 73 20 22 6e 6f 22 |o".if it| is "no"|
|00001860| 20 74 68 65 6e 20 65 78 | 69 74 20 69 6e 69 74 69 | then ex|it initi|
|00001870| 61 6c 69 7a 65 0d 6c 6f | 63 6b 20 73 63 72 65 65 |alize.lo|ck scree|
|00001880| 6e 0d 67 6f 20 63 64 20 | 22 6a 61 6e 75 61 72 79 |n.go cd |"january|
|00001890| 22 0d 72 65 70 65 61 74 | 20 66 6f 72 20 31 32 20 |".repeat| for 12 |
|000018a0| 74 69 6d 65 73 0d 73 65 | 74 20 63 75 72 73 6f 72 |times.se|t cursor|
|000018b0| 20 74 6f 20 62 75 73 79 | 0d 70 75 74 20 65 6d 70 | to busy|.put emp|
|000018c0| 74 79 20 69 6e 74 6f 20 | 62 67 20 66 6c 64 20 22 |ty into |bg fld "|
|000018d0| 64 61 74 65 22 0d 70 75 | 74 20 65 6d 70 74 79 20 |date".pu|t empty |
|000018e0| 69 6e 74 6f 20 62 67 20 | 66 6c 64 20 22 63 6c 69 |into bg |fld "cli|
|000018f0| 65 6e 74 22 0d 70 75 74 | 20 65 6d 70 74 79 20 69 |ent".put| empty i|
|00001900| 6e 74 6f 20 62 67 20 66 | 6c 64 20 22 70 72 6f 6a |nto bg f|ld "proj|
|00001910| 65 63 74 22 0d 70 75 74 | 20 65 6d 70 74 79 20 69 |ect".put| empty i|
|00001920| 6e 74 6f 20 62 67 20 66 | 6c 64 20 22 63 61 74 65 |nto bg f|ld "cate|
|00001930| 67 6f 72 79 22 0d 70 75 | 74 20 65 6d 70 74 79 20 |gory".pu|t empty |
|00001940| 69 6e 74 6f 20 62 67 20 | 66 6c 64 20 22 67 72 6f |into bg |fld "gro|
|00001950| 73 73 22 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e |ss".put |empty in|
|00001960| 74 6f 20 62 67 20 66 6c | 64 20 22 6e 65 74 22 0d |to bg fl|d "net".|
|00001970| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 62 |put empt|y into b|
|00001980| 67 20 66 6c 64 20 22 64 | 61 74 65 70 61 69 64 22 |g fld "d|atepaid"|
|00001990| 0d 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 |.put emp|ty into |
|000019a0| 62 67 20 66 6c 64 20 22 | 73 74 75 64 69 6f 22 0d |bg fld "|studio".|
|000019b0| 70 75 74 20 22 30 2e 30 | 30 22 20 69 6e 74 6f 20 |put "0.0|0" into |
|000019c0| 62 67 20 66 6c 64 20 22 | 67 72 6f 73 73 54 22 0d |bg fld "|grossT".|
|000019d0| 70 75 74 20 22 30 2e 30 | 30 22 20 69 6e 74 6f 20 |put "0.0|0" into |
|000019e0| 62 67 20 66 6c 64 20 22 | 67 72 6f 73 73 59 22 0d |bg fld "|grossY".|
|000019f0| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 62 |put empt|y into b|
|00001a00| 67 20 66 6c 64 20 22 62 | 72 65 61 6b 22 0d 73 65 |g fld "b|reak".se|
|00001a10| 74 20 68 69 6c 69 74 65 | 20 6f 66 20 63 64 20 62 |t hilite| of cd b|
|00001a20| 74 6e 20 22 61 6c 6c 20 | 65 76 65 6e 74 73 20 63 |tn "all |events c|
|00001a30| 6c 65 61 72 65 64 22 20 | 74 6f 20 66 61 6c 73 65 |leared" |to false|
|00001a40| 0d 67 6f 20 6e 65 78 74 | 20 63 64 0d 65 6e 64 20 |.go next| cd.end |
|00001a50| 72 65 70 65 61 74 0d 67 | 6f 20 63 64 20 31 0d 67 |repeat.g|o cd 1.g|
|00001a60| 65 74 20 6c 6f 63 20 6f | 66 20 62 67 20 62 74 6e |et loc o|f bg btn|
|00001a70| 20 22 61 6e 61 6c 79 7a | 65 20 64 61 74 61 22 0d | "analyz|e data".|
|00001a80| 63 6c 69 63 6b 20 61 74 | 20 69 74 0d 70 75 74 20 |click at| it.put |
|00001a90| 65 6d 70 74 79 20 69 6e | 74 6f 20 62 67 20 66 6c |empty in|to bg fl|
|00001aa0| 64 20 22 61 72 63 6c 69 | 65 6e 74 22 0d 70 75 74 |d "arcli|ent".put|
|00001ab0| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 62 67 20 66 | empty i|nto bg f|
|00001ac0| 6c 64 20 22 74 6f 74 61 | 6c 44 75 65 22 0d 70 75 |ld "tota|lDue".pu|
|00001ad0| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 62 67 20 |t empty |into bg |
|00001ae0| 66 6c 64 20 22 74 6f 74 | 61 6c 53 65 74 41 73 69 |fld "tot|alSetAsi|
|00001af0| 64 65 22 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e |de".put |empty in|
|00001b00| 74 6f 20 62 67 20 66 6c | 64 20 22 73 65 74 41 73 |to bg fl|d "setAs|
|00001b10| 69 64 65 44 75 65 22 0d | 70 75 74 20 65 6d 70 74 |ideDue".|put empt|
|00001b20| 79 20 69 6e 74 6f 20 63 | 64 20 66 6c 64 20 22 70 |y into c|d fld "p|
|00001b30| 65 72 63 65 6e 74 61 67 | 65 73 74 65 6d 70 22 0d |ercentag|estemp".|
|00001b40| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 63 |put empt|y into c|
|00001b50| 64 20 66 6c 64 20 22 62 | 72 65 61 6b 64 6f 77 6e |d fld "b|reakdown|
|00001b60| 54 65 6d 70 22 0d 70 75 | 74 20 65 6d 70 74 79 20 |Temp".pu|t empty |
|00001b70| 69 6e 74 6f 20 62 67 20 | 66 6c 64 20 22 6c 61 73 |into bg |fld "las|
|00001b80| 74 79 65 61 72 22 0d 70 | 75 74 20 65 6d 70 74 79 |tyear".p|ut empty|
|00001b90| 20 69 6e 74 6f 20 62 67 | 20 66 6c 64 20 22 6c 61 | into bg| fld "la|
|00001ba0| 73 74 79 65 61 72 74 6f | 74 61 6c 22 0d 70 75 74 |styearto|tal".put|
|00001bb0| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 62 67 20 66 | empty i|nto bg f|
|00001bc0| 6c 64 20 22 63 6c 69 65 | 6e 74 6c 69 73 74 22 0d |ld "clie|ntlist".|
|00001bd0| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 63 |put empt|y into c|
|00001be0| 64 20 66 6c 64 20 22 73 | 74 75 64 69 6f 6c 69 73 |d fld "s|tudiolis|
|00001bf0| 74 22 0d 62 65 65 70 20 | 33 0d 65 6e 64 20 69 6e |t".beep |3.end in|
|00001c00| 69 74 69 61 6c 69 7a 65 | 0d 0d 6f 6e 20 76 65 72 |itialize|..on ver|
|00001c10| 73 69 6f 6e 0d 61 6e 73 | 77 65 72 20 22 53 65 73 |sion.ans|wer "Ses|
|00001c20| 73 69 6f 6e 20 4b 69 6e | 67 aa 22 20 26 20 72 65 |sion Kin|g." & re|
|00001c30| 74 75 72 6e 20 26 c2 0d | 22 56 65 72 73 69 6f 6e |turn &..|"Version|
|00001c40| 20 22 20 26 20 28 63 64 | 20 66 6c 64 20 22 76 65 | " & (cd| fld "ve|
|00001c50| 72 73 69 6f 6e 22 20 6f | 66 20 63 64 20 31 29 20 |rsion" o|f cd 1) |
|00001c60| 26 20 72 65 74 75 72 6e | 20 26 20 72 65 74 75 72 |& return| & retur|
|00001c70| 6e 20 26 c2 0d 22 4d 69 | 73 73 69 6e 67 20 42 79 |n &.."Mi|ssing By|
|00001c80| 74 65 20 53 6f 66 74 77 | 61 72 65 22 20 26 20 72 |te Softw|are" & r|
|00001c90| 65 74 75 72 6e 20 26 c2 | 0d 22 31 34 30 35 20 43 |eturn &.|."1405 C|
|00001ca0| 65 64 61 72 77 61 79 20 | 4c 61 6e 65 22 20 26 20 |edarway |Lane" & |
|00001cb0| 72 65 74 75 72 6e 20 26 | c2 0d 22 4e 61 73 68 76 |return &|.."Nashv|
|00001cc0| 69 6c 6c 65 2c 20 54 4e | 20 33 37 32 31 31 22 20 |ille, TN| 37211" |
|00001cd0| 26 20 72 65 74 75 72 6e | 20 26 c2 0d 22 36 31 35 |& return| &.."615|
|00001ce0| 2f 38 33 34 2d 35 32 36 | 34 22 20 26 20 72 65 74 |/834-526|4" & ret|
|00001cf0| 75 72 6e 20 26 c2 0d 22 | 43 49 53 20 49 44 3a 20 |urn &.."|CIS ID: |
|00001d00| 37 36 35 35 36 2c 32 30 | 31 32 22 20 26 20 72 65 |76556,20|12" & re|
|00001d10| 74 75 72 6e 20 26 c2 0d | 22 47 45 6e 69 65 3a 20 |turn &..|"GEnie: |
|00001d20| 42 4f 42 50 41 54 49 4e | 22 0d 65 6e 64 20 76 65 |BOBPATIN|".end ve|
|00001d30| 72 73 69 6f 6e 0d 0d 6f | 6e 20 76 65 72 73 69 6f |rsion..o|n versio|
|00001d40| 6e 43 68 61 6e 67 65 0d | 61 73 6b 20 22 57 68 61 |nChange.|ask "Wha|
|00001d50| 74 20 69 73 20 74 68 69 | 73 20 76 65 72 73 69 6f |t is thi|s versio|
|00001d60| 6e 3f 22 20 77 69 74 68 | 20 63 64 20 66 6c 64 20 |n?" with| cd fld |
|00001d70| 22 76 65 72 73 69 6f 6e | 22 0d 69 66 20 69 74 20 |"version|".if it |
|00001d80| 69 73 20 6e 6f 74 20 65 | 6d 70 74 79 20 74 68 65 |is not e|mpty the|
|00001d90| 6e 20 70 75 74 20 69 74 | 20 69 6e 74 6f 20 63 64 |n put it| into cd|
|00001da0| 20 66 6c 64 20 22 76 65 | 72 73 69 6f 6e 22 0d 65 | fld "ve|rsion".e|
|00001db0| 6e 64 20 76 65 72 73 69 | 6f 6e 63 68 61 6e 67 65 |nd versi|onchange|
|00001dc0| 0d 0d 6f 6e 20 66 69 67 | 75 72 65 50 61 73 74 44 |..on fig|urePastD|
|00001dd0| 75 65 0d 70 75 74 20 31 | 20 69 6e 74 6f 20 78 78 |ue.put 1| into xx|
|00001de0| 0d 70 75 74 20 74 68 65 | 20 73 68 6f 72 74 20 64 |.put the| short d|
|00001df0| 61 74 65 20 69 6e 74 6f | 20 6e 6f 77 64 61 74 65 |ate into| nowdate|
|00001e00| 0d 63 6f 6e 76 65 72 74 | 20 6e 6f 77 64 61 74 65 |.convert| nowdate|
|00001e10| 20 74 6f 20 73 65 63 6f | 6e 64 73 0d 72 65 70 65 | to seco|nds.repe|
|00001e20| 61 74 20 66 6f 72 20 74 | 68 65 20 6e 75 6d 62 65 |at for t|he numbe|
|00001e30| 72 20 6f 66 20 6c 69 6e | 65 73 20 69 6e 20 62 67 |r of lin|es in bg|
|00001e40| 20 66 6c 64 20 22 61 72 | 63 6c 69 65 6e 74 22 20 | fld "ar|client" |
|00001e50| 2d 20 31 0d 70 75 74 20 | 22 20 20 20 20 20 22 20 |- 1.put |"     " |
|00001e60| 69 6e 74 6f 20 63 68 61 | 72 20 37 37 20 74 6f 20 |into cha|r 77 to |
|00001e70| 38 31 20 6f 66 20 6c 69 | 6e 65 20 78 78 20 6f 66 |81 of li|ne xx of|
|00001e80| 20 62 67 20 66 6c 64 20 | 22 61 72 63 6c 69 65 6e | bg fld |"arclien|
|00001e90| 74 22 0d 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |t".set c|ursor to|
|00001ea0| 20 62 75 73 79 0d 69 66 | 20 28 77 6f 72 64 20 31 | busy.if| (word 1|
|00001eb0| 20 6f 66 20 6c 69 6e 65 | 20 78 78 20 6f 66 20 62 | of line| xx of b|
|00001ec0| 67 20 66 6c 64 20 22 61 | 72 63 6c 69 65 6e 74 22 |g fld "a|rclient"|
|00001ed0| 29 20 3d 20 22 2a 22 20 | 74 68 65 6e 0d 70 75 74 |) = "*" |then.put|
|00001ee0| 20 77 6f 72 64 20 32 20 | 6f 66 20 6c 69 6e 65 20 | word 2 |of line |
|00001ef0| 78 78 20 6f 66 20 62 67 | 20 66 6c 64 20 22 61 72 |xx of bg| fld "ar|
|00001f00| 63 6c 69 65 6e 74 22 20 | 69 6e 74 6f 20 74 68 65 |client" |into the|
|00001f10| 64 61 74 65 0d 65 6c 73 | 65 0d 70 75 74 20 77 6f |date.els|e.put wo|
|00001f20| 72 64 20 31 20 6f 66 20 | 6c 69 6e 65 20 78 78 20 |rd 1 of |line xx |
|00001f30| 6f 66 20 62 67 20 66 6c | 64 20 22 61 72 63 6c 69 |of bg fl|d "arcli|
|00001f40| 65 6e 74 22 20 69 6e 74 | 6f 20 74 68 65 64 61 74 |ent" int|o thedat|
|00001f50| 65 0d 65 6e 64 20 69 66 | 0d 63 6f 6e 76 65 72 74 |e.end if|.convert|
|00001f60| 20 74 68 65 64 61 74 65 | 20 74 6f 20 73 65 63 6f | thedate| to seco|
|00001f70| 6e 64 73 0d 70 75 74 20 | 28 6e 6f 77 64 61 74 65 |nds.put |(nowdate|
|00001f80| 20 2d 20 74 68 65 44 61 | 74 65 29 2f 38 36 34 30 | - theDa|te)/8640|
|00001f90| 30 20 69 6e 74 6f 20 73 | 69 6e 63 65 0d 73 65 74 |0 into s|ince.set|
|00001fa0| 20 6e 75 6d 62 65 72 66 | 6f 72 6d 61 74 20 74 6f | numberf|ormat to|
|00001fb0| 20 22 30 30 22 0d 0d 69 | 66 20 73 69 6e 63 65 20 | "00"..i|f since |
|00001fc0| 3e 20 39 30 20 74 68 65 | 6e 0d 70 75 74 20 73 69 |> 90 the|n.put si|
|00001fd0| 6e 63 65 20 26 20 22 20 | 44 41 59 53 22 20 69 6e |nce & " |DAYS" in|
|00001fe0| 74 6f 20 63 68 61 72 20 | 38 32 20 74 6f 20 39 35 |to char |82 to 95|
|00001ff0| 20 6f 66 20 6c 69 6e 65 | 20 78 78 20 6f 66 20 62 | of line| xx of b|
|00002000| 67 20 66 6c 64 20 22 61 | 72 63 6c 69 65 6e 74 22 |g fld "a|rclient"|
|00002010| 0d 73 65 74 20 74 65 78 | 74 73 74 79 6c 65 20 6f |.set tex|tstyle o|
|00002020| 66 20 63 68 61 72 20 38 | 32 20 74 6f 20 39 33 20 |f char 8|2 to 93 |
|00002030| 6f 66 20 6c 69 6e 65 20 | 78 78 20 6f 66 20 c2 0d |of line |xx of ..|
|00002040| 62 67 20 66 6c 64 20 22 | 61 72 63 6c 69 65 6e 74 |bg fld "|arclient|
|00002050| 22 20 6f 66 20 63 64 20 | 31 20 74 6f 20 62 6f 6c |" of cd |1 to bol|
|00002060| 64 0d 65 6c 73 65 0d 69 | 66 20 73 69 6e 63 65 20 |d.else.i|f since |
|00002070| 3e 20 35 39 20 74 68 65 | 6e 0d 70 75 74 20 22 50 |> 59 the|n.put "P|
|00002080| 41 53 54 20 36 30 20 44 | 41 59 53 22 20 69 6e 74 |AST 60 D|AYS" int|
|00002090| 6f 20 73 69 6e 63 65 0d | 70 75 74 20 73 69 6e 63 |o since.|put sinc|
|000020a0| 65 20 69 6e 74 6f 20 63 | 68 61 72 20 38 32 20 74 |e into c|har 82 t|
|000020b0| 6f 20 39 35 20 6f 66 20 | 6c 69 6e 65 20 78 78 20 |o 95 of |line xx |
|000020c0| 6f 66 20 62 67 20 66 6c | 64 20 22 61 72 63 6c 69 |of bg fl|d "arcli|
|000020d0| 65 6e 74 22 0d 73 65 74 | 20 74 65 78 74 73 74 79 |ent".set| textsty|
|000020e0| 6c 65 20 6f 66 20 63 68 | 61 72 20 38 32 20 74 6f |le of ch|ar 82 to|
|000020f0| 20 39 33 20 6f 66 20 6c | 69 6e 65 20 78 78 20 6f | 93 of l|ine xx o|
|00002100| 66 20 c2 0d 62 67 20 66 | 6c 64 20 22 61 72 63 6c |f ..bg f|ld "arcl|
|00002110| 69 65 6e 74 22 20 6f 66 | 20 63 64 20 31 20 74 6f |ient" of| cd 1 to|
|00002120| 20 62 6f 6c 64 0d 65 6c | 73 65 0d 69 66 20 73 69 | bold.el|se.if si|
|00002130| 6e 63 65 20 3e 20 33 30 | 20 74 68 65 6e 0d 70 75 |nce > 30| then.pu|
|00002140| 74 20 22 50 41 53 54 20 | 33 30 20 44 41 59 53 22 |t "PAST |30 DAYS"|
|00002150| 20 69 6e 74 6f 20 73 69 | 6e 63 65 0d 70 75 74 20 | into si|nce.put |
|00002160| 73 69 6e 63 65 20 69 6e | 74 6f 20 63 68 61 72 20 |since in|to char |
|00002170| 38 32 20 74 6f 20 39 35 | 20 6f 66 20 6c 69 6e 65 |82 to 95| of line|
|00002180| 20 78 78 20 6f 66 20 62 | 67 20 66 6c 64 20 22 61 | xx of b|g fld "a|
|00002190| 72 63 6c 69 65 6e 74 22 | 0d 65 6e 64 20 69 66 0d |rclient"|.end if.|
|000021a0| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 61 64 |end if.e|nd if.ad|
|000021b0| 64 20 31 20 74 6f 20 78 | 78 0d 65 6e 64 20 72 65 |d 1 to x|x.end re|
|000021c0| 70 65 61 74 0d 65 6e 64 | 20 66 69 67 75 72 65 50 |peat.end| figureP|
|000021d0| 61 73 74 44 75 65 0d 0d | 6f 6e 20 62 61 72 63 68 |astDue..|on barch|
|000021e0| 61 72 74 0d 67 6c 6f 62 | 61 6c 20 77 68 69 63 68 |art.glob|al which|
|000021f0| 43 68 61 72 74 2c 67 72 | 61 70 68 54 79 70 65 0d |Chart,gr|aphType.|
|00002200| 70 75 74 20 31 20 69 6e | 74 6f 20 6c 69 6e 65 20 |put 1 in|to line |
|00002210| 31 20 6f 66 20 67 72 69 | 64 4c 69 6e 65 73 0d 70 |1 of gri|dLines.p|
|00002220| 75 74 20 31 20 69 6e 74 | 6f 20 6c 69 6e 65 20 32 |ut 1 int|o line 2|
|00002230| 20 6f 66 20 67 72 69 64 | 4c 69 6e 65 73 0d 0d 70 | of grid|Lines..p|
|00002240| 75 74 20 74 68 65 20 73 | 68 6f 72 74 20 6e 61 6d |ut the s|hort nam|
|00002250| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |e of thi|s stack |
|00002260| 69 6e 74 6f 20 6c 69 6e | 65 20 31 20 6f 66 20 6c |into lin|e 1 of l|
|00002270| 65 67 65 6e 64 0d 70 75 | 74 20 77 68 69 63 68 43 |egend.pu|t whichC|
|00002280| 68 61 72 74 20 69 6e 74 | 6f 20 6c 69 6e 65 20 32 |hart int|o line 2|
|00002290| 20 6f 66 20 6c 65 67 65 | 6e 64 0d 69 66 20 77 68 | of lege|nd.if wh|
|000022a0| 69 63 68 43 68 61 72 74 | 20 3d 20 22 6d 6f 6e 74 |ichChart| = "mont|
|000022b0| 68 6c 79 20 69 6e 63 6f | 6d 65 22 20 74 68 65 6e |hly inco|me" then|
|000022c0| 0d 70 75 74 20 22 4d 6f | 6e 74 68 22 20 69 6e 74 |.put "Mo|nth" int|
|000022d0| 6f 20 6c 69 6e 65 20 33 | 20 6f 66 20 6c 65 67 65 |o line 3| of lege|
|000022e0| 6e 64 0d 65 6c 73 65 0d | 70 75 74 20 22 43 61 74 |nd.else.|put "Cat|
|000022f0| 65 67 6f 72 79 22 20 69 | 6e 74 6f 20 6c 69 6e 65 |egory" i|nto line|
|00002300| 20 33 20 6f 66 20 6c 65 | 67 65 6e 64 0d 65 6e 64 | 3 of le|gend.end|
|00002310| 20 69 66 0d 70 75 74 20 | 22 41 6d 6f 75 6e 74 22 | if.put |"Amount"|
|00002320| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 34 20 6f 66 20 | into li|ne 4 of |
|00002330| 6c 65 67 65 6e 64 0d 70 | 75 74 20 77 6f 72 64 20 |legend.p|ut word |
|00002340| 32 20 6f 66 20 74 68 65 | 20 73 68 6f 72 74 20 6e |2 of the| short n|
|00002350| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 73 74 61 63 |ame of t|his stac|
|00002360| 6b 20 69 6e 74 6f 20 6c | 69 6e 65 20 35 20 6f 66 |k into l|ine 5 of|
|00002370| 20 6c 65 67 65 6e 64 0d | 70 75 74 20 28 77 6f 72 | legend.|put (wor|
|00002380| 64 20 32 20 6f 66 20 74 | 68 65 20 73 68 6f 72 74 |d 2 of t|he short|
|00002390| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 73 74 | name of| this st|
|000023a0| 61 63 6b 29 20 2d 20 31 | 20 69 6e 74 6f 20 6c 69 |ack) - 1| into li|
|000023b0| 6e 65 20 36 20 6f 66 20 | 6c 65 67 65 6e 64 0d 0d |ne 6 of |legend..|
|000023c0| 69 66 20 77 68 69 63 68 | 43 68 61 72 74 20 3d 20 |if which|Chart = |
|000023d0| 22 4d 6f 6e 74 68 6c 79 | 20 49 6e 63 6f 6d 65 22 |"Monthly| Income"|
|000023e0| 20 74 68 65 6e 0d 70 75 | 74 20 22 4a 61 6e 2e 22 | then.pu|t "Jan."|
|000023f0| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 31 20 6f 66 20 | into li|ne 1 of |
|00002400| 6c 65 67 65 6e 64 58 0d | 70 75 74 20 22 46 65 62 |legendX.|put "Feb|
|00002410| 2e 22 20 69 6e 74 6f 20 | 6c 69 6e 65 20 32 20 6f |." into |line 2 o|
|00002420| 66 20 6c 65 67 65 6e 64 | 58 0d 70 75 74 20 22 4d |f legend|X.put "M|
|00002430| 61 72 2e 22 20 69 6e 74 | 6f 20 6c 69 6e 65 20 33 |ar." int|o line 3|
|00002440| 20 6f 66 20 6c 65 67 65 | 6e 64 58 0d 70 75 74 20 | of lege|ndX.put |
|00002450| 22 41 70 72 2e 22 20 69 | 6e 74 6f 20 6c 69 6e 65 |"Apr." i|nto line|
|00002460| 20 34 20 6f 66 20 6c 65 | 67 65 6e 64 58 0d 70 75 | 4 of le|gendX.pu|
|00002470| 74 20 22 4d 61 79 22 20 | 69 6e 74 6f 20 6c 69 6e |t "May" |into lin|
|00002480| 65 20 35 20 6f 66 20 6c | 65 67 65 6e 64 58 0d 70 |e 5 of l|egendX.p|
|00002490| 75 74 20 22 4a 75 6e 65 | 22 20 69 6e 74 6f 20 6c |ut "June|" into l|
|000024a0| 69 6e 65 20 36 20 6f 66 | 20 6c 65 67 65 6e 64 58 |ine 6 of| legendX|
|000024b0| 0d 70 75 74 20 22 4a 75 | 6c 79 22 20 69 6e 74 6f |.put "Ju|ly" into|
|000024c0| 20 6c 69 6e 65 20 37 20 | 6f 66 20 6c 65 67 65 6e | line 7 |of legen|
|000024d0| 64 58 0d 70 75 74 20 22 | 41 75 67 2e 22 20 69 6e |dX.put "|Aug." in|
|000024e0| 74 6f 20 6c 69 6e 65 20 | 38 20 6f 66 20 6c 65 67 |to line |8 of leg|
|000024f0| 65 6e 64 58 0d 70 75 74 | 20 22 53 65 70 74 2e 22 |endX.put| "Sept."|
|00002500| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 39 20 6f 66 20 | into li|ne 9 of |
|00002510| 6c 65 67 65 6e 64 58 0d | 70 75 74 20 22 4f 63 74 |legendX.|put "Oct|
|00002520| 2e 22 20 69 6e 74 6f 20 | 6c 69 6e 65 20 31 30 20 |." into |line 10 |
|00002530| 6f 66 20 6c 65 67 65 6e | 64 58 0d 70 75 74 20 22 |of legen|dX.put "|
|00002540| 4e 6f 76 2e 22 20 69 6e | 74 6f 20 6c 69 6e 65 20 |Nov." in|to line |
|00002550| 31 31 20 6f 66 20 6c 65 | 67 65 6e 64 58 0d 70 75 |11 of le|gendX.pu|
|00002560| 74 20 22 44 65 63 2e 22 | 20 69 6e 74 6f 20 6c 69 |t "Dec."| into li|
|00002570| 6e 65 20 31 32 20 6f 66 | 20 6c 65 67 65 6e 64 58 |ne 12 of| legendX|
|00002580| 0d 70 75 74 20 31 20 69 | 6e 74 6f 20 78 0d 72 65 |.put 1 i|nto x.re|
|00002590| 70 65 61 74 20 66 6f 72 | 20 31 32 20 74 69 6d 65 |peat for| 12 time|
|000025a0| 73 0d 70 75 74 20 6c 69 | 6e 65 20 78 20 6f 66 20 |s.put li|ne x of |
|000025b0| 62 67 20 66 6c 64 20 22 | 67 72 6f 73 73 54 6f 74 |bg fld "|grossTot|
|000025c0| 61 6c 73 22 20 6f 66 20 | 63 64 20 22 74 6f 74 61 |als" of |cd "tota|
|000025d0| 6c 73 22 20 69 6e 74 6f | 20 6c 69 6e 65 20 78 c2 |ls" into| line x.|
|000025e0| 0d 6f 66 20 74 6f 74 61 | 6c 73 0d 70 75 74 20 6c |.of tota|ls.put l|
|000025f0| 69 6e 65 20 78 20 6f 66 | 20 62 67 20 66 6c 64 20 |ine x of| bg fld |
|00002600| 22 67 72 6f 73 73 54 6f | 74 61 6c 73 22 20 6f 66 |"grossTo|tals" of|
|00002610| 20 63 64 20 22 74 6f 74 | 61 6c 73 22 20 69 6e 74 | cd "tot|als" int|
|00002620| 6f 20 6c 69 6e 65 20 78 | c2 0d 6f 66 20 61 72 65 |o line x|..of are|
|00002630| 61 31 0d 70 75 74 20 78 | 20 2b 20 31 20 69 6e 74 |a1.put x| + 1 int|
|00002640| 6f 20 78 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 65 |o x.end |repeat.e|
|00002650| 6c 73 65 0d 70 75 74 20 | 31 20 69 6e 74 6f 20 78 |lse.put |1 into x|
|00002660| 0d 72 65 70 65 61 74 20 | 66 6f 72 20 37 20 74 69 |.repeat |for 7 ti|
|00002670| 6d 65 73 0d 70 75 74 20 | 6c 69 6e 65 20 78 20 6f |mes.put |line x o|
|00002680| 66 20 62 67 20 66 6c 64 | 20 22 63 61 74 65 67 6f |f bg fld| "catego|
|00002690| 72 69 65 73 22 20 6f 66 | 20 63 64 20 31 20 69 6e |ries" of| cd 1 in|
|000026a0| 74 6f 20 6c 69 6e 65 20 | 78 20 6f 66 20 6c 65 67 |to line |x of leg|
|000026b0| 65 6e 64 58 0d 61 64 64 | 20 31 20 74 6f 20 78 0d |endX.add| 1 to x.|
|000026c0| 65 6e 64 20 72 65 70 65 | 61 74 0d 70 75 74 20 31 |end repe|at.put 1|
|000026d0| 20 69 6e 74 6f 20 78 0d | 72 65 70 65 61 74 20 66 | into x.|repeat f|
|000026e0| 6f 72 20 37 20 74 69 6d | 65 73 0d 70 75 74 20 6c |or 7 tim|es.put l|
|000026f0| 69 6e 65 20 78 20 6f 66 | 20 62 67 20 66 6c 64 20 |ine x of| bg fld |
|00002700| 22 62 72 65 61 6b 64 6f | 77 6e 22 20 6f 66 20 63 |"breakdo|wn" of c|
|00002710| 64 20 22 74 6f 74 61 6c | 73 22 20 69 6e 74 6f 20 |d "total|s" into |
|00002720| 6c 69 6e 65 20 78 c2 0d | 6f 66 20 74 6f 74 61 6c |line x..|of total|
|00002730| 73 0d 70 75 74 20 6c 69 | 6e 65 20 78 20 6f 66 20 |s.put li|ne x of |
|00002740| 62 67 20 66 6c 64 20 22 | 62 72 65 61 6b 64 6f 77 |bg fld "|breakdow|
|00002750| 6e 22 20 6f 66 20 63 64 | 20 22 74 6f 74 61 6c 73 |n" of cd| "totals|
|00002760| 22 20 69 6e 74 6f 20 6c | 69 6e 65 20 78 c2 0d 6f |" into l|ine x..o|
|00002770| 66 20 61 72 65 61 31 0d | 61 64 64 20 31 20 74 6f |f area1.|add 1 to|
|00002780| 20 78 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6e | x.end r|epeat.en|
|00002790| 64 20 69 66 0d 0d 70 75 | 74 20 31 20 69 6e 74 6f |d if..pu|t 1 into|
|000027a0| 20 64 72 61 77 43 6f 6c | 6f 72 0d 0d 69 66 20 63 | drawCol|or..if c|
|000027b0| 64 20 66 6c 64 20 22 65 | 78 70 6f 72 74 70 69 63 |d fld "e|xportpic|
|000027c0| 74 66 69 6c 65 22 20 6f | 66 20 63 64 20 31 20 3d |tfile" o|f cd 1 =|
|000027d0| 20 34 20 74 68 65 6e 0d | 70 75 74 20 31 20 69 6e | 4 then.|put 1 in|
|000027e0| 74 6f 20 74 68 65 6d 6f | 64 65 0d 65 6c 73 65 0d |to themo|de.else.|
|000027f0| 70 75 74 20 30 20 69 6e | 74 6f 20 74 68 65 6d 6f |put 0 in|to themo|
|00002800| 64 65 0d 65 6e 64 20 69 | 66 0d 0d 70 75 74 20 30 |de.end i|f..put 0|
|00002810| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 31 20 6f 66 20 | into li|ne 1 of |
|00002820| 75 73 65 72 4d 69 6e 4d | 61 78 0d 70 75 74 20 30 |userMinM|ax.put 0|
|00002830| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 32 20 6f 66 20 | into li|ne 2 of |
|00002840| 75 73 65 72 4d 69 6e 4d | 61 78 0d 0d 70 75 74 20 |userMinM|ax..put |
|00002850| 6c 69 6e 65 20 31 20 6f | 66 20 63 64 20 66 6c 64 |line 1 o|f cd fld|
|00002860| 20 22 63 6f 6c 6f 72 73 | 22 20 6f 66 20 63 64 20 | "colors|" of cd |
|00002870| 31 20 69 6e 74 6f 20 6c | 69 6e 65 20 31 20 6f 66 |1 into l|ine 1 of|
|00002880| 20 63 6f 6c 6f 72 73 0d | 70 75 74 20 6c 69 6e 65 | colors.|put line|
|00002890| 20 32 20 6f 66 20 63 64 | 20 66 6c 64 20 22 63 6f | 2 of cd| fld "co|
|000028a0| 6c 6f 72 73 22 20 6f 66 | 20 63 64 20 31 20 69 6e |lors" of| cd 1 in|
|000028b0| 74 6f 20 6c 69 6e 65 20 | 32 20 6f 66 20 63 6f 6c |to line |2 of col|
|000028c0| 6f 72 73 0d 70 75 74 20 | 6c 69 6e 65 20 33 20 6f |ors.put |line 3 o|
|000028d0| 66 20 63 64 20 66 6c 64 | 20 22 63 6f 6c 6f 72 73 |f cd fld| "colors|
|000028e0| 22 20 6f 66 20 63 64 20 | 31 20 69 6e 74 6f 20 6c |" of cd |1 into l|
|000028f0| 69 6e 65 20 33 20 6f 66 | 20 63 6f 6c 6f 72 73 0d |ine 3 of| colors.|
|00002900| 0d 2d 2d 20 32 4e 44 20 | 43 4f 4c 4f 52 0d 70 75 |.-- 2ND |COLOR.pu|
|00002910| 74 20 6c 69 6e 65 20 33 | 20 6f 66 20 63 64 20 66 |t line 3| of cd f|
|00002920| 6c 64 20 22 63 6f 6c 6f | 72 73 22 20 6f 66 20 63 |ld "colo|rs" of c|
|00002930| 64 20 31 20 69 6e 74 6f | 20 6c 69 6e 65 20 34 20 |d 1 into| line 4 |
|00002940| 6f 66 20 63 6f 6c 6f 72 | 73 0d 70 75 74 20 6c 69 |of color|s.put li|
|00002950| 6e 65 20 31 20 6f 66 20 | 63 64 20 66 6c 64 20 22 |ne 1 of |cd fld "|
|00002960| 63 6f 6c 6f 72 73 22 20 | 6f 66 20 63 64 20 31 20 |colors" |of cd 1 |
|00002970| 69 6e 74 6f 20 6c 69 6e | 65 20 35 20 6f 66 20 63 |into lin|e 5 of c|
|00002980| 6f 6c 6f 72 73 0d 70 75 | 74 20 6c 69 6e 65 20 32 |olors.pu|t line 2|
|00002990| 20 6f 66 20 63 64 20 66 | 6c 64 20 22 63 6f 6c 6f | of cd f|ld "colo|
|000029a0| 72 73 22 20 6f 66 20 63 | 64 20 31 20 69 6e 74 6f |rs" of c|d 1 into|
|000029b0| 20 6c 69 6e 65 20 36 20 | 6f 66 20 63 6f 6c 6f 72 | line 6 |of color|
|000029c0| 73 0d 0d 70 75 74 20 6c | 69 6e 65 20 32 20 6f 66 |s..put l|ine 2 of|
|000029d0| 20 63 64 20 66 6c 64 20 | 22 63 6f 6c 6f 72 73 22 | cd fld |"colors"|
|000029e0| 20 6f 66 20 63 64 20 31 | 20 69 6e 74 6f 20 6c 69 | of cd 1| into li|
|000029f0| 6e 65 20 37 20 6f 66 20 | 63 6f 6c 6f 72 73 0d 70 |ne 7 of |colors.p|
|00002a00| 75 74 20 6c 69 6e 65 20 | 31 20 6f 66 20 63 64 20 |ut line |1 of cd |
|00002a10| 66 6c 64 20 22 63 6f 6c | 6f 72 73 22 20 6f 66 20 |fld "col|ors" of |
|00002a20| 63 64 20 31 20 69 6e 74 | 6f 20 6c 69 6e 65 20 38 |cd 1 int|o line 8|
|00002a30| 20 6f 66 20 63 6f 6c 6f | 72 73 0d 70 75 74 20 6c | of colo|rs.put l|
|00002a40| 69 6e 65 20 33 20 6f 66 | 20 63 64 20 66 6c 64 20 |ine 3 of| cd fld |
|00002a50| 22 63 6f 6c 6f 72 73 22 | 20 6f 66 20 63 64 20 31 |"colors"| of cd 1|
|00002a60| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 39 20 6f 66 20 | into li|ne 9 of |
|00002a70| 63 6f 6c 6f 72 73 0d 0d | 70 75 74 20 6c 69 6e 65 |colors..|put line|
|00002a80| 20 31 20 6f 66 20 63 64 | 20 66 6c 64 20 22 63 6f | 1 of cd| fld "co|
|00002a90| 6c 6f 72 73 22 20 6f 66 | 20 63 64 20 31 20 69 6e |lors" of| cd 1 in|
|00002aa0| 74 6f 20 6c 69 6e 65 20 | 31 30 20 6f 66 20 63 6f |to line |10 of co|
|00002ab0| 6c 6f 72 73 0d 70 75 74 | 20 6c 69 6e 65 20 32 20 |lors.put| line 2 |
|00002ac0| 6f 66 20 63 64 20 66 6c | 64 20 22 63 6f 6c 6f 72 |of cd fl|d "color|
|00002ad0| 73 22 20 6f 66 20 63 64 | 20 31 20 69 6e 74 6f 20 |s" of cd| 1 into |
|00002ae0| 6c 69 6e 65 20 31 31 20 | 6f 66 20 63 6f 6c 6f 72 |line 11 |of color|
|00002af0| 73 0d 70 75 74 20 6c 69 | 6e 65 20 33 20 6f 66 20 |s.put li|ne 3 of |
|00002b00| 63 64 20 66 6c 64 20 22 | 63 6f 6c 6f 72 73 22 20 |cd fld "|colors" |
|00002b10| 6f 66 20 63 64 20 31 20 | 69 6e 74 6f 20 6c 69 6e |of cd 1 |into lin|
|00002b20| 65 20 31 32 20 6f 66 20 | 63 6f 6c 6f 72 73 0d 0d |e 12 of |colors..|
|00002b30| 69 66 20 77 68 69 63 68 | 43 68 61 72 74 20 3d 20 |if which|Chart = |
|00002b40| 22 6d 6f 6e 74 68 6c 79 | 20 69 6e 63 6f 6d 65 22 |"monthly| income"|
|00002b50| 20 74 68 65 6e 0d 69 66 | 20 62 67 20 66 6c 64 20 | then.if| bg fld |
|00002b60| 22 6c 61 73 74 79 65 61 | 72 22 20 6f 66 20 63 64 |"lastyea|r" of cd|
|00002b70| 20 31 20 69 73 20 6e 6f | 74 20 65 6d 70 74 79 20 | 1 is no|t empty |
|00002b80| 74 68 65 6e 0d 70 75 74 | 20 31 20 69 6e 74 6f 20 |then.put| 1 into |
|00002b90| 78 0d 72 65 70 65 61 74 | 20 66 6f 72 20 31 32 20 |x.repeat| for 12 |
|00002ba0| 74 69 6d 65 73 0d 70 75 | 74 20 6c 69 6e 65 20 78 |times.pu|t line x|
|00002bb0| 20 6f 66 20 62 67 20 66 | 6c 64 20 22 6c 61 73 74 | of bg f|ld "last|
|00002bc0| 79 65 61 72 22 20 6f 66 | 20 63 64 20 22 74 6f 74 |year" of| cd "tot|
|00002bd0| 61 6c 73 22 20 69 6e 74 | 6f 20 6c 69 6e 65 20 78 |als" int|o line x|
|00002be0| c2 0d 6f 66 20 74 6f 74 | 61 6c 73 0d 70 75 74 20 |..of tot|als.put |
|00002bf0| 6c 69 6e 65 20 78 20 6f | 66 20 62 67 20 66 6c 64 |line x o|f bg fld|
|00002c00| 20 22 6c 61 73 74 79 65 | 61 72 22 20 6f 66 20 63 | "lastye|ar" of c|
|00002c10| 64 20 22 74 6f 74 61 6c | 73 22 20 69 6e 74 6f 20 |d "total|s" into |
|00002c20| 6c 69 6e 65 20 78 c2 0d | 6f 66 20 61 72 65 61 32 |line x..|of area2|
|00002c30| 0d 70 75 74 20 78 20 2b | 20 31 20 69 6e 74 6f 20 |.put x +| 1 into |
|00002c40| 78 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 65 6e 64 |x.end re|peat.end|
|00002c50| 20 69 66 0d 65 6c 73 65 | 0d 70 75 74 20 31 20 69 | if.else|.put 1 i|
|00002c60| 6e 74 6f 20 78 0d 72 65 | 70 65 61 74 20 66 6f 72 |nto x.re|peat for|
|00002c70| 20 37 20 74 69 6d 65 73 | 0d 70 75 74 20 30 20 69 | 7 times|.put 0 i|
|00002c80| 6e 74 6f 20 6c 69 6e 65 | 20 78 20 6f 66 20 61 72 |nto line| x of ar|
|00002c90| 65 61 32 0d 61 64 64 20 | 31 20 74 6f 20 78 0d 65 |ea2.add |1 to x.e|
|00002ca0| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 69 66 |nd repea|t.end if|
|00002cb0| 0d 0d 70 75 74 20 6c 69 | 6e 65 20 31 20 6f 66 20 |..put li|ne 1 of |
|00002cc0| 74 6f 74 61 6c 73 20 69 | 6e 74 6f 20 6d 61 78 0d |totals i|nto max.|
|00002cd0| 70 75 74 20 32 20 69 6e | 74 6f 20 78 0d 72 65 70 |put 2 in|to x.rep|
|00002ce0| 65 61 74 20 66 6f 72 20 | 28 74 68 65 20 6e 75 6d |eat for |(the num|
|00002cf0| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 69 6e 20 |ber of l|ines in |
|00002d00| 74 6f 74 61 6c 73 29 20 | 2d 20 31 20 74 69 6d 65 |totals) |- 1 time|
|00002d10| 73 0d 69 66 20 6c 69 6e | 65 20 78 20 6f 66 20 74 |s.if lin|e x of t|
|00002d20| 6f 74 61 6c 73 20 3e 20 | 6d 61 78 20 74 68 65 6e |otals > |max then|
|00002d30| 0d 70 75 74 20 6c 69 6e | 65 20 78 20 6f 66 20 74 |.put lin|e x of t|
|00002d40| 6f 74 61 6c 73 20 69 6e | 74 6f 20 6d 61 78 0d 65 |otals in|to max.e|
|00002d50| 6e 64 20 69 66 0d 70 75 | 74 20 78 20 2b 20 31 20 |nd if.pu|t x + 1 |
|00002d60| 69 6e 74 6f 20 78 0d 65 | 6e 64 20 72 65 70 65 61 |into x.e|nd repea|
|00002d70| 74 0d 70 75 74 20 63 68 | 61 72 20 31 20 6f 66 20 |t.put ch|ar 1 of |
|00002d80| 6d 61 78 20 69 6e 74 6f | 20 74 65 6d 70 0d 70 75 |max into| temp.pu|
|00002d90| 74 20 74 65 6d 70 20 2b | 20 31 20 69 6e 74 6f 20 |t temp +| 1 into |
|00002da0| 74 65 6d 70 0d 70 75 74 | 20 74 65 6d 70 20 69 6e |temp.put| temp in|
|00002db0| 74 6f 20 63 68 61 72 20 | 31 20 6f 66 20 6d 61 78 |to char |1 of max|
|00002dc0| 0d 70 75 74 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |.put the| number |
|00002dd0| 6f 66 20 63 68 61 72 73 | 20 69 6e 20 6d 61 78 20 |of chars| in max |
|00002de0| 69 6e 74 6f 20 74 65 6d | 70 0d 64 65 6c 65 74 65 |into tem|p.delete|
|00002df0| 20 63 68 61 72 20 28 74 | 65 6d 70 20 2d 20 32 29 | char (t|emp - 2)|
|00002e00| 20 74 6f 20 74 65 6d 70 | 20 6f 66 20 6d 61 78 0d | to temp| of max.|
|00002e10| 70 75 74 20 32 20 69 6e | 74 6f 20 78 0d 72 65 70 |put 2 in|to x.rep|
|00002e20| 65 61 74 20 66 6f 72 20 | 28 74 68 65 20 6e 75 6d |eat for |(the num|
|00002e30| 62 65 72 20 6f 66 20 63 | 68 61 72 73 20 69 6e 20 |ber of c|hars in |
|00002e40| 6d 61 78 20 2d 20 31 29 | 20 74 69 6d 65 73 0d 70 |max - 1)| times.p|
|00002e50| 75 74 20 30 20 69 6e 74 | 6f 20 63 68 61 72 20 78 |ut 0 int|o char x|
|00002e60| 20 6f 66 20 6d 61 78 0d | 70 75 74 20 78 20 2b 20 | of max.|put x + |
|00002e70| 31 20 69 6e 74 6f 20 78 | 0d 65 6e 64 20 72 65 70 |1 into x|.end rep|
|00002e80| 65 61 74 0d 70 75 74 20 | 6d 61 78 2f 31 30 20 69 |eat.put |max/10 i|
|00002e90| 6e 74 6f 20 79 4c 65 76 | 65 6c 73 0d 70 75 74 20 |nto yLev|els.put |
|00002ea0| 79 4c 65 76 65 6c 73 20 | 69 6e 74 6f 20 6c 69 6e |yLevels |into lin|
|00002eb0| 65 20 31 20 6f 66 20 79 | 53 74 65 70 0d 70 75 74 |e 1 of y|Step.put|
|00002ec0| 20 79 4c 65 76 65 6c 73 | 20 2a 20 32 20 69 6e 74 | yLevels| * 2 int|
|00002ed0| 6f 20 6c 69 6e 65 20 32 | 20 6f 66 20 79 53 74 65 |o line 2| of ySte|
|00002ee0| 70 0d 70 75 74 20 79 4c | 65 76 65 6c 73 20 2a 20 |p.put yL|evels * |
|00002ef0| 33 20 69 6e 74 6f 20 6c | 69 6e 65 20 33 20 6f 66 |3 into l|ine 3 of|
|00002f00| 20 79 53 74 65 70 0d 70 | 75 74 20 79 4c 65 76 65 | yStep.p|ut yLeve|
|00002f10| 6c 73 20 2a 20 34 20 69 | 6e 74 6f 20 6c 69 6e 65 |ls * 4 i|nto line|
|00002f20| 20 34 20 6f 66 20 79 53 | 74 65 70 0d 70 75 74 20 | 4 of yS|tep.put |
|00002f30| 79 4c 65 76 65 6c 73 20 | 2a 20 35 20 69 6e 74 6f |yLevels |* 5 into|
|00002f40| 20 6c 69 6e 65 20 35 20 | 6f 66 20 79 53 74 65 70 | line 5 |of yStep|
|00002f50| 0d 70 75 74 20 79 4c 65 | 76 65 6c 73 20 2a 20 36 |.put yLe|vels * 6|
|00002f60| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 36 20 6f 66 20 | into li|ne 6 of |
|00002f70| 79 53 74 65 70 0d 70 75 | 74 20 79 4c 65 76 65 6c |yStep.pu|t yLevel|
|00002f80| 73 20 2a 20 37 20 69 6e | 74 6f 20 6c 69 6e 65 20 |s * 7 in|to line |
|00002f90| 37 20 6f 66 20 79 53 74 | 65 70 0d 70 75 74 20 79 |7 of ySt|ep.put y|
|00002fa0| 4c 65 76 65 6c 73 20 2a | 20 38 20 69 6e 74 6f 20 |Levels *| 8 into |
|00002fb0| 6c 69 6e 65 20 38 20 6f | 66 20 79 53 74 65 70 0d |line 8 o|f yStep.|
|00002fc0| 70 75 74 20 79 4c 65 76 | 65 6c 73 20 2a 20 39 20 |put yLev|els * 9 |
|00002fd0| 69 6e 74 6f 20 6c 69 6e | 65 20 39 20 6f 66 20 79 |into lin|e 9 of y|
|00002fe0| 53 74 65 70 0d 70 75 74 | 20 79 4c 65 76 65 6c 73 |Step.put| yLevels|
|00002ff0| 20 2a 20 31 30 20 69 6e | 74 6f 20 6c 69 6e 65 20 | * 10 in|to line |
|00003000| 31 30 20 6f 66 20 79 53 | 74 65 70 0d 0d 70 75 74 |10 of yS|tep..put|
|00003010| 20 63 64 20 66 6c 64 20 | 22 50 61 72 61 6d 65 74 | cd fld |"Paramet|
|00003020| 65 72 73 22 20 69 6e 74 | 6f 20 61 72 65 61 33 0d |ers" int|o area3.|
|00003030| 70 75 74 20 63 64 20 66 | 6c 64 20 22 50 61 72 61 |put cd f|ld "Para|
|00003040| 6d 65 74 65 72 73 22 20 | 69 6e 74 6f 20 61 72 65 |meters" |into are|
|00003050| 61 34 0d 0d 44 6f 4c 69 | 6e 65 42 61 72 20 67 72 |a4..DoLi|neBar gr|
|00003060| 69 64 4c 69 6e 65 73 2c | 6c 65 67 65 6e 64 2c 6c |idLines,|legend,l|
|00003070| 65 67 65 6e 64 58 2c 79 | 53 74 65 70 2c 67 72 61 |egendX,y|Step,gra|
|00003080| 70 68 54 79 70 65 2c 64 | 72 61 77 43 6f 6c 6f 72 |phType,d|rawColor|
|00003090| 2c 74 68 65 4d 6f 64 65 | 2c c2 0d 75 73 65 72 4d |,theMode|,..userM|
|000030a0| 69 6e 4d 61 78 2c 63 6f | 6c 6f 72 73 2c 61 72 65 |inMax,co|lors,are|
|000030b0| 61 31 2c 61 72 65 61 32 | 2c 61 72 65 61 33 2c 61 |a1,area2|,area3,a|
|000030c0| 72 65 61 34 0d 0d 69 66 | 20 74 68 65 20 72 65 73 |rea4..if| the res|
|000030d0| 75 6c 74 20 69 73 20 6e | 6f 74 20 65 6d 70 74 79 |ult is n|ot empty|
|000030e0| 20 74 68 65 6e 20 70 75 | 74 20 74 68 65 20 72 65 | then pu|t the re|
|000030f0| 73 75 6c 74 0d 65 6e 64 | 20 62 61 72 43 68 61 72 |sult.end| barChar|
|00003100| 74 0d 0d 6f 6e 20 70 69 | 63 6b 65 72 0d 73 65 74 |t..on pi|cker.set|
|00003110| 20 74 68 65 20 63 75 72 | 73 6f 72 20 74 6f 20 77 | the cur|sor to w|
|00003120| 61 74 63 68 0d 0d 70 75 | 74 20 6c 69 6e 65 20 31 |atch..pu|t line 1|
|00003130| 20 6f 66 20 63 64 20 66 | 6c 64 20 22 63 6f 6c 6f | of cd f|ld "colo|
|00003140| 72 73 22 20 6f 66 20 63 | 64 20 31 20 69 6e 74 6f |rs" of c|d 1 into|
|00003150| 20 72 65 64 50 61 72 74 | 0d 70 75 74 20 6c 69 6e | redPart|.put lin|
|00003160| 65 20 32 20 6f 66 20 63 | 64 20 66 6c 64 20 22 63 |e 2 of c|d fld "c|
|00003170| 6f 6c 6f 72 73 22 20 6f | 66 20 63 64 20 31 20 69 |olors" o|f cd 1 i|
|00003180| 6e 74 6f 20 67 72 65 65 | 6e 50 61 72 74 0d 70 75 |nto gree|nPart.pu|
|00003190| 74 20 6c 69 6e 65 20 33 | 20 6f 66 20 63 64 20 66 |t line 3| of cd f|
|000031a0| 6c 64 20 22 63 6f 6c 6f | 72 73 22 20 6f 66 20 63 |ld "colo|rs" of c|
|000031b0| 64 20 31 20 69 6e 74 6f | 20 62 6c 75 65 50 61 72 |d 1 into| bluePar|
|000031c0| 74 0d 0d 70 75 74 20 22 | 43 68 6f 73 65 6e 20 63 |t..put "|Chosen c|
|000031d0| 6f 6c 6f 72 3a 22 20 69 | 6e 74 6f 20 74 68 65 50 |olor:" i|nto theP|
|000031e0| 72 6f 6d 70 74 0d 0d 70 | 75 74 20 22 35 30 22 20 |rompt..p|ut "50" |
|000031f0| 69 6e 74 6f 20 77 68 65 | 72 65 48 0d 70 75 74 20 |into whe|reH.put |
|00003200| 22 35 30 22 20 69 6e 74 | 6f 20 77 68 65 72 65 56 |"50" int|o whereV|
|00003210| 0d 0d 70 75 74 20 50 69 | 63 6b 43 6f 6c 6f 72 28 |..put Pi|ckColor(|
|00003220| 72 65 64 50 61 72 74 2c | 67 72 65 65 6e 50 61 72 |redPart,|greenPar|
|00003230| 74 2c 62 6c 75 65 50 61 | 72 74 2c 74 68 65 50 72 |t,bluePa|rt,thePr|
|00003240| 6f 6d 70 74 2c 77 68 65 | 72 65 56 2c 77 68 65 72 |ompt,whe|reV,wher|
|00003250| 65 48 29 20 c2 0d 69 6e | 74 6f 20 63 6f 6c 6f 72 |eH) ..in|to color|
|00003260| 43 68 6f 69 63 65 0d 0d | 73 65 74 20 74 68 65 20 |Choice..|set the |
|00003270| 63 75 72 73 6f 72 20 74 | 6f 20 77 61 74 63 68 0d |cursor t|o watch.|
|00003280| 0d 69 66 20 6c 69 6e 65 | 20 33 20 6f 66 20 63 6f |.if line| 3 of co|
|00003290| 6c 6f 72 43 68 6f 69 63 | 65 20 69 73 20 65 6d 70 |lorChoic|e is emp|
|000032a0| 74 79 20 74 68 65 6e 0d | 69 66 20 6c 69 6e 65 20 |ty then.|if line |
|000032b0| 31 20 6f 66 20 63 6f 6c | 6f 72 43 68 6f 69 63 65 |1 of col|orChoice|
|000032c0| 20 ad 20 22 37 22 20 74 | 68 65 6e 0d 73 68 6f 77 | . "7" t|hen.show|
|000032d0| 43 6f 6c 45 72 72 20 6c | 69 6e 65 20 31 20 6f 66 |ColErr l|ine 1 of|
|000032e0| 20 63 6f 6c 6f 72 43 68 | 6f 69 63 65 0d 65 6e 64 | colorCh|oice.end|
|000032f0| 20 69 66 0d 65 6c 73 65 | 0d 70 75 74 20 22 59 6f | if.else|.put "Yo|
|00003300| 75 72 20 63 68 6f 69 63 | 65 20 69 73 3a 22 20 69 |ur choic|e is:" i|
|00003310| 6e 74 6f 20 6c 69 6e 65 | 20 31 20 6f 66 20 74 68 |nto line| 1 of th|
|00003320| 65 43 68 6f 69 63 65 0d | 70 75 74 20 6c 69 6e 65 |eChoice.|put line|
|00003330| 20 31 20 6f 66 20 63 6f | 6c 6f 72 43 68 6f 69 63 | 1 of co|lorChoic|
|00003340| 65 20 69 6e 74 6f 20 6c | 69 6e 65 20 31 20 6f 66 |e into l|ine 1 of|
|00003350| 20 63 64 20 66 6c 64 20 | 22 63 6f 6c 6f 72 73 22 | cd fld |"colors"|
|00003360| 20 6f 66 20 63 64 20 31 | 0d 70 75 74 20 6c 69 6e | of cd 1|.put lin|
|00003370| 65 20 32 20 6f 66 20 63 | 6f 6c 6f 72 43 68 6f 69 |e 2 of c|olorChoi|
|00003380| 63 65 20 69 6e 74 6f 20 | 6c 69 6e 65 20 32 20 6f |ce into |line 2 o|
|00003390| 66 20 63 64 20 66 6c 64 | 20 22 63 6f 6c 6f 72 73 |f cd fld| "colors|
|000033a0| 22 20 6f 66 20 63 64 20 | 31 0d 70 75 74 20 6c 69 |" of cd |1.put li|
|000033b0| 6e 65 20 33 20 6f 66 20 | 63 6f 6c 6f 72 43 68 6f |ne 3 of |colorCho|
|000033c0| 69 63 65 20 69 6e 74 6f | 20 6c 69 6e 65 20 33 20 |ice into| line 3 |
|000033d0| 6f 66 20 63 64 20 66 6c | 64 20 22 63 6f 6c 6f 72 |of cd fl|d "color|
|000033e0| 73 22 20 6f 66 20 63 64 | 20 31 0d 65 6e 64 20 69 |s" of cd| 1.end i|
|000033f0| 66 0d 65 6e 64 20 70 69 | 63 6b 65 72 0d 0d 6f 6e |f.end pi|cker..on|
|00003400| 20 70 69 65 43 68 61 72 | 74 0d 67 6c 6f 62 61 6c | pieChar|t.global|
|00003410| 20 77 68 69 63 68 43 68 | 61 72 74 2c 61 72 65 61 | whichCh|art,area|
|00003420| 31 0d 70 75 74 20 74 68 | 65 20 73 68 6f 72 74 20 |1.put th|e short |
|00003430| 6e 61 6d 65 20 6f 66 20 | 74 68 69 73 20 73 74 61 |name of |this sta|
|00003440| 63 6b 20 69 6e 74 6f 20 | 68 65 61 64 6c 69 6e 65 |ck into |headline|
|00003450| 31 0d 70 75 74 20 77 68 | 69 63 68 43 68 61 72 74 |1.put wh|ichChart|
|00003460| 20 69 6e 74 6f 20 68 65 | 61 64 6c 69 6e 65 32 0d | into he|adline2.|
|00003470| 0d 69 66 20 77 68 69 63 | 68 43 68 61 72 74 20 3d |.if whic|hChart =|
|00003480| 20 22 6d 6f 6e 74 68 6c | 79 20 69 6e 63 6f 6d 65 | "monthl|y income|
|00003490| 22 20 74 68 65 6e 0d 70 | 75 74 20 22 4a 61 6e 2e |" then.p|ut "Jan.|
|000034a0| 22 20 69 6e 74 6f 20 6c | 69 6e 65 20 31 20 6f 66 |" into l|ine 1 of|
|000034b0| 20 6c 65 67 65 6e 64 0d | 70 75 74 20 22 46 65 62 | legend.|put "Feb|
|000034c0| 2e 22 20 69 6e 74 6f 20 | 6c 69 6e 65 20 32 20 6f |." into |line 2 o|
|000034d0| 66 20 6c 65 67 65 6e 64 | 0d 70 75 74 20 22 4d 61 |f legend|.put "Ma|
|000034e0| 72 2e 22 20 69 6e 74 6f | 20 6c 69 6e 65 20 33 20 |r." into| line 3 |
|000034f0| 6f 66 20 6c 65 67 65 6e | 64 0d 70 75 74 20 22 41 |of legen|d.put "A|
|00003500| 70 72 2e 22 20 69 6e 74 | 6f 20 6c 69 6e 65 20 34 |pr." int|o line 4|
|00003510| 20 6f 66 20 6c 65 67 65 | 6e 64 0d 70 75 74 20 22 | of lege|nd.put "|
|00003520| 4d 61 79 22 20 69 6e 74 | 6f 20 6c 69 6e 65 20 35 |May" int|o line 5|
|00003530| 20 6f 66 20 6c 65 67 65 | 6e 64 0d 70 75 74 20 22 | of lege|nd.put "|
|00003540| 4a 75 6e 65 22 20 69 6e | 74 6f 20 6c 69 6e 65 20 |June" in|to line |
|00003550| 36 20 6f 66 20 6c 65 67 | 65 6e 64 0d 70 75 74 20 |6 of leg|end.put |
|00003560| 22 4a 75 6c 79 22 20 69 | 6e 74 6f 20 6c 69 6e 65 |"July" i|nto line|
|00003570| 20 37 20 6f 66 20 6c 65 | 67 65 6e 64 0d 70 75 74 | 7 of le|gend.put|
|00003580| 20 22 41 75 67 2e 22 20 | 69 6e 74 6f 20 6c 69 6e | "Aug." |into lin|
|00003590| 65 20 38 20 6f 66 20 6c | 65 67 65 6e 64 0d 70 75 |e 8 of l|egend.pu|
|000035a0| 74 20 22 53 65 70 74 2e | 22 20 69 6e 74 6f 20 6c |t "Sept.|" into l|
|000035b0| 69 6e 65 20 39 20 6f 66 | 20 6c 65 67 65 6e 64 0d |ine 9 of| legend.|
|000035c0| 70 75 74 20 22 4f 63 74 | 2e 22 20 69 6e 74 6f 20 |put "Oct|." into |
|000035d0| 6c 69 6e 65 20 31 30 20 | 6f 66 20 6c 65 67 65 6e |line 10 |of legen|
|000035e0| 64 0d 70 75 74 20 22 4e | 6f 76 2e 22 20 69 6e 74 |d.put "N|ov." int|
|000035f0| 6f 20 6c 69 6e 65 20 31 | 31 20 6f 66 20 6c 65 67 |o line 1|1 of leg|
|00003600| 65 6e 64 0d 70 75 74 20 | 22 44 65 63 2e 22 20 69 |end.put |"Dec." i|
|00003610| 6e 74 6f 20 6c 69 6e 65 | 20 31 32 20 6f 66 20 6c |nto line| 12 of l|
|00003620| 65 67 65 6e 64 0d 70 75 | 74 20 31 20 69 6e 74 6f |egend.pu|t 1 into|
|00003630| 20 78 0d 72 65 70 65 61 | 74 20 66 6f 72 20 31 32 | x.repea|t for 12|
|00003640| 20 74 69 6d 65 73 0d 73 | 65 74 20 63 75 72 73 6f | times.s|et curso|
|00003650| 72 20 74 6f 20 62 75 73 | 79 0d 70 75 74 20 6c 69 |r to bus|y.put li|
|00003660| 6e 65 20 78 20 6f 66 20 | 62 67 20 66 6c 64 20 22 |ne x of |bg fld "|
|00003670| 67 72 6f 73 73 54 6f 74 | 61 6c 73 22 20 6f 66 20 |grossTot|als" of |
|00003680| 63 64 20 31 20 69 6e 74 | 6f 20 6c 69 6e 65 20 78 |cd 1 int|o line x|
|00003690| 20 6f 66 20 61 72 65 61 | 31 0d 61 64 64 20 31 20 | of area|1.add 1 |
|000036a0| 74 6f 20 78 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |to x.end| repeat.|
|000036b0| 65 6c 73 65 0d 70 75 74 | 20 31 20 69 6e 74 6f 20 |else.put| 1 into |
|000036c0| 78 0d 72 65 70 65 61 74 | 20 66 6f 72 20 37 20 74 |x.repeat| for 7 t|
|000036d0| 69 6d 65 73 0d 70 75 74 | 20 6c 69 6e 65 20 78 20 |imes.put| line x |
|000036e0| 6f 66 20 62 67 20 66 6c | 64 20 22 63 61 74 65 67 |of bg fl|d "categ|
|000036f0| 6f 72 69 65 73 22 20 6f | 66 20 63 64 20 31 20 69 |ories" o|f cd 1 i|
|00003700| 6e 74 6f 20 6c 69 6e 65 | 20 78 20 6f 66 20 6c 65 |nto line| x of le|
|00003710| 67 65 6e 64 0d 61 64 64 | 20 31 20 74 6f 20 78 0d |gend.add| 1 to x.|
|00003720| 65 6e 64 20 72 65 70 65 | 61 74 0d 70 75 74 20 31 |end repe|at.put 1|
|00003730| 20 69 6e 74 6f 20 78 0d | 72 65 70 65 61 74 20 66 | into x.|repeat f|
|00003740| 6f 72 20 37 20 74 69 6d | 65 73 0d 73 65 74 20 63 |or 7 tim|es.set c|
|00003750| 75 72 73 6f 72 20 74 6f | 20 62 75 73 79 0d 70 75 |ursor to| busy.pu|
|00003760| 74 20 6c 69 6e 65 20 78 | 20 6f 66 20 62 67 20 66 |t line x| of bg f|
|00003770| 6c 64 20 22 62 72 65 61 | 6b 64 6f 77 6e 22 20 6f |ld "brea|kdown" o|
|00003780| 66 20 63 64 20 31 20 69 | 6e 74 6f 20 6c 69 6e 65 |f cd 1 i|nto line|
|00003790| 20 78 20 6f 66 20 61 72 | 65 61 31 0d 61 64 64 20 | x of ar|ea1.add |
|000037a0| 31 20 74 6f 20 78 0d 65 | 6e 64 20 72 65 70 65 61 |1 to x.e|nd repea|
|000037b0| 74 0d 65 6e 64 20 69 66 | 0d 0d 70 75 74 20 31 20 |t.end if|..put 1 |
|000037c0| 69 6e 74 6f 20 78 0d 72 | 65 70 65 61 74 20 66 6f |into x.r|epeat fo|
|000037d0| 72 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |r the nu|mber of |
|000037e0| 6c 69 6e 65 73 20 69 6e | 20 61 72 65 61 31 0d 69 |lines in| area1.i|
|000037f0| 66 20 6c 69 6e 65 20 78 | 20 6f 66 20 61 72 65 61 |f line x| of area|
|00003800| 31 20 3d 20 30 20 74 68 | 65 6e 0d 70 75 74 20 22 |1 = 0 th|en.put "|
|00003810| 22 20 69 6e 74 6f 20 6c | 69 6e 65 20 78 20 6f 66 |" into l|ine x of|
|00003820| 20 6c 65 67 65 6e 64 0d | 65 6e 64 20 69 66 0d 61 | legend.|end if.a|
|00003830| 64 64 20 31 20 74 6f 20 | 78 0d 65 6e 64 20 72 65 |dd 1 to |x.end re|
|00003840| 70 65 61 74 0d 0d 69 66 | 20 63 64 20 66 6c 64 20 |peat..if| cd fld |
|00003850| 22 65 78 70 6f 72 74 70 | 69 63 74 66 69 6c 65 22 |"exportp|ictfile"|
|00003860| 20 6f 66 20 63 64 20 31 | 20 3d 20 34 20 74 68 65 | of cd 1| = 4 the|
|00003870| 6e 0d 70 75 74 20 31 20 | 69 6e 74 6f 20 74 68 65 |n.put 1 |into the|
|00003880| 6d 6f 64 65 0d 65 6c 73 | 65 0d 70 75 74 20 30 20 |mode.els|e.put 0 |
|00003890| 69 6e 74 6f 20 74 68 65 | 6d 6f 64 65 0d 65 6e 64 |into the|mode.end|
|000038a0| 20 69 66 0d 0d 44 6f 50 | 69 65 20 61 72 65 61 31 | if..DoP|ie area1|
|000038b0| 2c 6c 65 67 65 6e 64 2c | 31 2c 68 65 61 64 6c 69 |,legend,|1,headli|
|000038c0| 6e 65 31 2c 68 65 61 64 | 6c 69 6e 65 32 2c 74 68 |ne1,head|line2,th|
|000038d0| 65 4d 6f 64 65 0d 0d 69 | 66 20 74 68 65 20 72 65 |eMode..i|f the re|
|000038e0| 73 75 6c 74 20 69 73 20 | 6e 6f 74 20 65 6d 70 74 |sult is |not empt|
|000038f0| 79 20 74 68 65 6e 20 70 | 75 74 20 74 68 65 20 72 |y then p|ut the r|
|00003900| 65 73 75 6c 74 0d 65 6e | 64 20 70 69 65 63 68 61 |esult.en|d piecha|
|00003910| 72 74 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |rt......|........|
|00003920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a80| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00003a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003aa0| 00 00 00 00 00 01 e0 91 | 00 06 92 ba 00 09 8f 2a |........|.......*|
|00003ab0| 00 13 0f 6f 00 13 17 8d | 00 06 10 66 00 01 e4 af |...o....|...f....|
|00003ac0| 00 0b 07 27 00 0a b5 ae | 00 0b 62 b0 00 0b c2 3f |...'....|..b....?|
|00003ad0| 00 0c 12 5e 00 0c 6e e1 | 00 0c bf b3 00 0d 1f 68 |...^..n.|.......h|
|00003ae0| 00 0d 73 10 00 0d b9 70 | 00 0e 08 6e 00 0e 74 20 |..s....p|...n..t |
|00003af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b00| 00 09 b4 30 00 09 c6 29 | 00 02 24 90 00 00 00 00 |...0...)|..$.....|
|00003b10| 00 00 00 00 00 0e a8 b2 | 00 0f ff 7d 00 13 24 c8 |........|...}..$.|
|00003b20| 00 13 1a 7b 00 10 3d 1e | 00 00 00 00 00 12 e4 c0 |...{..=.|........|
|00003b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c80| 00 00 00 80 4c 49 53 54 | 00 00 09 91 00 00 00 00 |....LIST|........|
|00003c90| 00 00 00 01 00 00 08 00 | 00 00 00 0f 00 84 00 02 |........|........|
|00003ca0| 00 20 00 03 e0 00 02 04 | 00 00 00 0f 00 00 00 00 |. ......|........|
|00003cb0| 00 00 0f af 00 0f 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d00| 00 00 08 00 50 41 47 45 | 00 00 0f af 00 00 00 00 |....PAGE|........|
|00003d10| 00 00 09 91 3b 61 11 52 | 00 00 21 29 e0 14 aa ef |....;a.R|..!)....|
|00003d20| b7 97 bd 7f 6f ba bb 67 | 6d 57 df a3 39 fa fd e9 |....o..g|mW..9...|
|00003d30| fc 0f 6f ef f9 f3 bf 7f | ea df bf bc 8f ff 76 f8 |..o.....|......v.|
|00003d40| bc 3f fa b3 6f 6d bf ae | ff 3f ff d2 f9 7e 75 b7 |.?..om..|.?...~u.|
|00003d50| 77 8f 7a 36 f3 70 14 1d | bf c9 e7 79 96 6c 99 2e |w.z6.p..|...y.l..|
|00003d60| fb 1f df d3 ef e7 d7 e3 | dd 6b 6d f3 ce 7f df 3f |........|.km....?|
|00003d70| de b9 05 dd 6e 90 6d d4 | ef ff ad a9 bf ff ee 1b |....n.m.|........|
|00003d80| 6c ff 6c 3c 7d 7e fa b7 | 15 f7 f4 fb b5 5b f3 f0 |l.l<}~..|.....[..|
|00003d90| b0 dd fc f3 78 ec f7 be | ce 5e 4b 74 00 00 11 ae |....x...|.^Kt....|
|00003da0| e0 76 62 b3 90 43 2c 0a | 40 20 2a 2a 6e 11 49 80 |.vb..C,.|@ **n.I.|
|00003db0| 75 11 02 c1 f8 09 4f 7f | c6 a0 02 00 f0 01 79 1c |u.....O.|......y.|
|00003dc0| 11 28 6b 60 34 27 ac 83 | 63 4e 3d 9c 8b 12 c6 51 |.(k`4'..|cN=....Q|
|00003dd0| 52 62 14 18 80 48 49 82 | 66 42 18 1c 08 d8 47 00 |Rb...HI.|fB....G.|
|00003de0| 72 42 89 40 1d 99 00 41 | 01 88 25 40 19 ac 63 42 |rB.@...A|..%@..cB|
|00003df0| 28 45 47 50 44 e1 61 18 | 0e 1a 85 c8 8c 7e 94 aa |(EGPD.a.|.....~..|
|00003e00| 29 8e 40 87 03 65 a1 90 | 01 e2 98 88 2c 47 38 b8 |).@..e..|....,G8.|
|00003e10| 81 91 41 fc d8 50 d4 50 | 62 6d 3a 94 30 29 c4 40 |..A..P.P|bm:.0).@|
|00003e20| 00 00 10 27 a0 10 02 31 | 06 43 ac 2a 50 30 00 31 |...'...1|.C.*P0.1|
|00003e30| 4e 10 09 a0 74 11 00 81 | ec 08 67 43 c6 a4 02 02 |N...t...|..gC....|
|00003e40| b0 c3 f9 5c 01 28 60 20 | b4 27 ec 83 67 47 78 0c |...\.(` |.'..gGx.|
|00003e50| 9f 34 87 11 53 66 14 98 | 41 58 49 02 66 46 0e 9c |.4..Sf..|AXI.fF..|
|00003e60| 08 e2 47 c4 46 42 a9 04 | 0d 99 44 51 01 01 a1 60 |..G.FB..|..DQ...`|
|00003e70| 19 38 60 82 09 0d 47 5c | dc e9 60 0c 8c 08 85 e8 |.8`...G\|..`.....|
|00003e80| 8d 5a 94 ba 29 a2 c0 87 | 08 75 26 90 05 e1 98 88 |.Z..)...|.u&.....|
|00003e90| 0c 07 38 b8 c1 11 49 74 | 99 10 d4 70 02 6c 22 94 |..8...It|...p.l".|
|00003ea0| 71 08 c8 68 00 00 12 b0 | a0 77 82 63 18 03 34 40 |q..h....|.w.c..4@|
|00003eb0| 30 62 80 7a 0c 02 b9 82 | 74 31 89 15 e8 18 d1 03 |0b.z....|t1......|
|00003ec0| 43 e0 45 43 b0 07 59 38 | a3 7c 44 29 b8 47 24 a3 |C.EC..Y8|.|D).G$.|
|00003ed0| cf 4f ed dc 8b 22 c6 21 | 5a 42 12 11 27 40 13 20 |.O...".!|ZB..'@. |
|00003ee0| 66 e2 0c b4 0e c0 d6 40 | 12 66 c8 12 45 1b 41 97 |f......@|.f..E.A.|
|00003ef0| 89 9b 11 2b 19 68 60 02 | a8 0d 5f 14 4f a1 70 89 |...+.h`.|.._.O.p.|
|00003f00| 0e 08 24 d0 09 7a df aa | a4 44 48 63 08 20 a1 04 |..$..z..|.DHc. ..|
|00003f10| 41 2a 38 cc 01 47 b8 fc | 81 91 51 98 90 d8 d6 14 |A*8..G..|..Q.....|
|00003f20| 19 24 62 9c 16 0c 79 64 | 00 00 13 3f a0 39 a2 29 |.$b...yd|...?.9.)|
|00003f30| 82 4b 24 04 04 e6 0a 62 | 2c 1c 9b 83 f8 21 59 15 |.K$....b|,....!Y.|
|00003f40| e8 69 21 6b c3 e1 34 00 | 30 43 09 18 a9 ec 66 00 |.i!k..4.|0C....f.|
|00003f50| 36 0f 2c 83 6f cf 30 1c | bb 20 c6 41 53 52 50 14 |6.,.o.0.|. .ASRP.|
|00003f60| 05 60 61 34 6e f2 1a 94 | 5a c2 d7 44 36 46 89 06 |.`a4n...|Z..D6F..|
|00003f70| 05 1b 71 95 91 84 12 e0 | 18 a8 78 03 08 69 c7 1c |..q.....|..x..i..|
|00003f80| 5c e1 70 0f 0c 28 02 90 | 18 7a dc aa 7c 04 e1 47 |\.p..(..|.z..|..G|
|00003f90| 40 bc a0 41 49 68 1c 81 | 09 4f 68 f8 09 71 61 18 |@..AIh..|.Oh..qa.|
|00003fa0| 72 d8 74 12 1c 27 20 9c | 17 1d aa 40 00 00 14 5e |r.t..' .|...@...^|
|00003fb0| a0 15 a4 a6 6c c3 3c 09 | 06 e2 13 23 00 01 29 83 |....l.<.|...#..).|
|00003fc0| d1 91 89 45 f8 0a f7 eb | c2 e6 00 00 b0 8b 3d 98 |...E....|......=.|
|00003fd0| a4 e9 72 29 be 16 84 8b | 6b 47 08 5e bb c5 86 01 |..r)....|kG.^....|
|00003fe0| 72 47 94 99 47 48 71 88 | 66 c2 0c b4 1d f2 77 50 |rG..GHq.|f.....wP|
|00003ff0| a2 42 29 83 0d 1b 02 a5 | 05 00 53 2a 9f 28 e1 b7 |.B).....|..S*.(..|
|00004000| 80 1b 4f 18 4e c8 65 99 | ac 2e 44 ec c8 5b 94 aa |..O.N.e.|..D..[..|
|00004010| 31 07 c0 87 98 6d b1 01 | 05 38 9a a2 94 67 78 38 |1....m..|.8...gx8|
|00004020| a5 51 41 f6 98 51 fc 1a | 7e 2e 36 b8 b5 18 dc 40 |.QA..Q..|~.6....@|
|00004030| 00 00 15 e1 a0 74 a1 23 | 0a 43 3c 00 10 2a 04 3e |.....t.#|.C<..*.>|
|00004040| 8c 00 29 81 74 11 83 e5 | f8 08 55 07 de a0 04 00 |..).t...|..U.....|
|00004050| 71 49 49 98 a8 60 64 19 | 08 06 ac 83 6f 47 fe 9e |qII..`d.|....oG..|
|00004060| ab 0e c7 45 52 47 16 91 | 02 40 71 04 66 c2 0c 5c |...ERG..|.@q.f..\|
|00004070| 09 c0 d6 50 02 4a a8 84 | 45 1b 10 47 00 c0 53 b2 |...P.J..|E..G..S.|
|00004080| 1d 6c 62 82 88 05 57 50 | 4d c9 e0 88 0c 0c 65 f8 |.lb...WP|M.....e.|
|00004090| 04 7a d6 ab 30 16 cc 67 | 00 25 20 c1 04 28 39 8c |.z..0..g|.% ..(9.|
|000040a0| 01 57 3a 38 81 11 40 3c | d9 10 d4 70 8a 46 62 b8 |.W:8..@<|...p.Fb.|
|000040b0| 16 48 dc 44 00 00 16 b3 | a0 10 a1 31 18 4b 3c 48 |.H.D....|...1.K<H|
|000040c0| 20 02 87 2a ec 00 2d 81 | 78 11 f9 e5 e8 08 77 6b | ..*..-.|x.....wk|
|000040d0| d6 a0 02 a0 b0 8b 59 38 | 82 f8 e4 f9 a0 46 ac b3 |......Y8|.....F..|
|000040e0| 4b 66 2c 3c 9b 12 e6 05 | d2 52 14 10 13 40 6d 01 |Kf,<....|.R...@m.|
|000040f0| e6 d2 18 5c 0d c0 de 70 | 0a 42 a8 44 4d 5b 02 d1 |...\...p|.B.DM[..|
|00004100| 01 10 91 02 5d a8 69 1b | 88 85 5f 50 c5 c1 60 08 |....].i.|.._P..`.|
|00004110| 2c 1c 05 d8 4d 7a 95 aa | 35 44 64 27 05 79 21 c4 |,...Mz..|5Dd'.y!.|
|00004120| 01 24 19 d0 14 57 38 38 | a1 11 53 14 d1 50 d4 72 |.$...W88|..S..P.r|
|00004130| 8e 46 61 b8 16 48 ca 40 | 00 00 17 68 a0 52 47 68 |.Fa..H.@|...h.RGh|
|00004140| 22 1b 32 01 64 a2 11 3a | 46 30 89 00 50 31 c0 01 |".2.d..:|F0..P1..|
|00004150| f5 88 41 a1 50 a4 00 0c | b0 33 01 18 1c b0 42 11 |..A.P...|.3....B.|
|00004160| 14 17 64 93 67 47 5c 2d | 8b 28 c4 01 51 53 b0 81 |..d.gG\-|.(..QS..|
|00004170| 04 00 26 24 66 02 0c 14 | 08 c0 cb 18 02 00 18 49 |..&$f...|.......I|
|00004180| 05 08 20 21 20 90 02 00 | 1f a8 65 62 02 01 5d 1c |.. ! ...|..eb..].|
|00004190| 46 81 00 0c 1c 14 c7 4c | 81 7a 94 aa b5 80 60 81 |F......L|.z....`.|
|000041a0| 09 60 20 00 04 20 08 80 | 04 07 78 b8 81 05 51 94 |.` .. ..|..x...Q.|
|000041b0| b0 90 f0 12 80 0e 22 9c | 10 18 4a 40 00 00 18 10 |......".|..J@....|
|000041c0| a0 36 80 30 00 43 2c 08 | 06 02 00 2a 64 31 1f 83 |.6.0.C,.|...*d1..|
|000041d0| 74 11 1c 8d f8 18 67 5b | c6 a0 02 0a 31 c3 49 58 |t.....g[|....1.IX|
|000041e0| 80 ec 60 20 08 06 e6 b3 | cb 46 0d be bb 90 86 41 |..` ....|.F.....A|
|000041f0| 52 46 d4 10 10 43 5f 80 | 66 c2 08 14 08 c0 77 00 |RF...C_.|f.....w.|
|00004200| 03 e2 08 02 47 19 48 01 | 20 04 74 20 99 2c 66 1f |....G.H.| .t .,f.|
|00004210| 10 01 d7 54 54 81 62 08 | 0c 28 05 c4 44 5a 9c aa |...TT.b.|.(..DZ..|
|00004220| 21 40 61 e7 00 f9 a0 80 | 0d a6 98 80 00 67 38 39 |!@a.....|.....g89|
|00004230| e1 91 54 16 91 10 50 90 | 06 ce 20 90 34 08 d8 60 |..T...P.|.. .4..`|
|00004240| 00 00 19 70 a0 14 03 21 | 00 03 30 00 08 00 31 3a |...p...!|..0...1:|
|00004250| 09 00 0f 92 30 31 0b 01 | f0 c8 4f 82 c0 80 00 50 |....01..|..O....P|
|00004260| f0 e3 01 58 83 a9 44 80 | bc 1e 0e c3 27 47 6c 2e |...X..D.|....'Gl.|
|00004270| af 10 e4 40 50 5e 10 a2 | 46 88 12 00 66 42 c6 04 |...@P^..|F...fB..|
|00004280| 08 91 63 40 0e 24 88 02 | 01 48 00 01 11 04 26 0a |..c@.$..|.H....&.|
|00004290| 99 2c 21 07 08 83 47 30 | 45 94 44 08 08 00 04 04 |.,!...G0|E.D.....|
|000042a0| 08 3f a6 a8 01 06 08 81 | 01 40 22 c0 07 20 aa 80 |.?......|.@".. ..|
|000042b0| 04 57 38 30 a1 11 d1 5b | 10 09 d0 1c 10 6c 2a 98 |.W80...[|.....l*.|
|000042c0| b2 00 58 00 00 00 1a 6e | a0 13 83 31 7a 43 3c 0b |..X....n|...1zC<.|
|000042d0| 04 a2 10 f9 4c 10 c9 a3 | f4 31 58 bd f9 09 67 4b |....L...|.1X...gK|
|000042e0| d7 e4 02 81 78 43 49 98 | c2 e9 67 c1 0c 36 f4 c7 |....xCI.|..g..6..|
|000042f0| 6f 65 6c 1c fb 12 c6 1b | d2 57 15 ba 04 c9 79 b2 |oel.....|.W....y.|
|00004300| 66 f3 1c 15 8a c2 df d8 | 2e e6 88 46 7d 9b 33 15 |f.......|...F}.3.|
|00004310| 81 90 32 25 1d 28 60 03 | 29 4d cf 5a 45 89 f4 c9 |..2%.(`.|)M.ZE...|
|00004320| 1e 0c 85 dd c5 7a 9d ba | a5 36 6c 8f 00 69 36 90 |.....z..|.6l..i6.|
|00004330| 44 60 b8 80 08 57 78 f9 | a1 99 58 16 91 3c f4 14 |D`...Wx.|..X..<..|
|00004340| 02 cc 2b b8 b6 7e ea 40 | 00 00 1b 20 a0 34 00 33 |..+..~.@|... .4.3|
|00004350| 00 43 2c 08 06 90 00 21 | 4c 10 1d 82 74 11 08 81 |.C,....!|L...t...|
|00004360| aa 08 47 43 46 a0 02 00 | 30 81 01 18 00 aa 66 00 |..GCF...|0.....f.|
|00004370| 24 06 b6 92 47 44 28 0c | cf 10 ee 01 52 42 54 10 |$...GD(.|....RBT.|
|00004380| 00 42 49 00 46 42 08 14 | 08 c0 e3 40 16 46 88 42 |.BI.FB..|...@.F.B|
|00004390| 41 9d 80 01 01 84 a8 20 | 19 28 64 0a 08 01 47 58 |A...... |.(d...GX|
|000043a0| 49 81 60 09 8c 08 85 c4 | 0d 7a 94 aa 25 02 40 07 |I.`.....|.z..%.@.|
|000043b0| 00 e5 20 90 15 28 88 80 | 00 66 78 39 81 11 43 34 |.. ..(..|.fx9..C4|
|000043c0| 98 10 70 14 32 cc 20 90 | 32 18 c0 48 00 00 25 b2 |..p.2. .|2..H..%.|
|000043d0| e0 10 22 b6 02 82 30 4a | 0a a4 12 23 06 21 89 01 |.."...0J|...#.!..|
|000043e0| 51 b2 1a a1 92 3a 4f 79 | c0 80 20 41 20 a3 6d 06 |Q....:Oy|.. A .m.|
|000043f0| 50 bd b4 20 e4 6b 34 81 | 6f 6f 8c 18 f2 22 c4 53 |P.. .k4.|oo...".S|
|00004400| 50 51 04 0a 67 0a 60 22 | 44 01 18 12 09 d0 a5 40 |PQ..g.`"|D......@|
|00004410| 82 20 88 1f 05 28 b2 55 | ad 90 00 a2 0d a8 60 06 |. ...(.U|......`.|
|00004420| 00 64 3d 10 41 a9 85 88 | a4 42 0d 9c cc 77 54 29 |.d=.A...|.B...wT)|
|00004430| 35 85 62 c4 20 ec b1 53 | 11 f0 51 88 00 13 18 18 |5.b. ..S|..Q.....|
|00004440| 85 61 59 52 50 09 50 24 | 50 4e 32 68 92 48 42 60 |.aYRP.P$|PN2h.HB`|
|00004450| 00 00 29 1e a0 7f ff f7 | df 7f fb 79 fb bf 7f ff |..).....|...y....|
|00004460| ef 7f ff 31 fd fe ff ff | fb ff ef af ff f7 af 7f |...1....|........|
|00004470| ff ff 7f ff fd ff be fb | bf ff ff ff 6f ff ff ff |........|....o...|
|00004480| ff ef fe ff de ff ff f7 | 77 e5 ff fd ff ff bd ff |........|w.......|
|00004490| fe ff df ff ff ff ff 7b | ff ff 7f 6b 7f ff ff ff |.......{|...k....|
|000044a0| fd fb ff bf bf 7f ff 7f | ce ff ff df ff de ff ff |........|........|
|000044b0| ff ff ff ff ff fc ff ff | ef ff ed 7f 7f 7e ff ff |........|.....~..|
|000044c0| bf ff fd ff af fb fc ff | ff 3e ff 7b f9 fb ff ff |........|.>.{....|
|000044d0| ff fe bf fc 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004500| 00 00 7d 80 42 4b 47 44 | 00 00 22 90 00 00 00 00 |..}.BKGD|..".....|
|00004510| 00 00 0e 66 00 00 00 00 | 00 00 00 01 00 00 0a ba |...f....|........|
|00004520| 00 00 20 30 00 37 00 6a | 00 00 7d 2e 00 00 00 00 |.. 0.7.j|..}.....|
|00004530| 00 00 00 7e 00 01 02 05 | 00 3d 00 15 00 cf 00 62 |...~....|.=.....b|
|00004540| 00 01 00 00 00 00 00 00 | 00 03 00 09 01 00 00 0c |........|........|
|00004550| 00 00 6f 6e 20 6d 6f 75 | 73 65 75 70 0d 70 75 74 |..on mou|seup.put|
|00004560| 20 6c 69 6e 65 20 28 77 | 6f 72 64 20 32 20 6f 66 | line (w|ord 2 of|
|00004570| 20 74 68 65 20 63 6c 69 | 63 6b 6c 69 6e 65 29 20 | the cli|ckline) |
|00004580| 6f 66 20 62 67 20 66 6c | 64 20 69 64 20 31 20 69 |of bg fl|d id 1 i|
|00004590| 6e 74 6f 20 74 65 6d 70 | 0d 67 6f 20 63 64 20 74 |nto temp|.go cd t|
|000045a0| 65 6d 70 0d 65 6e 64 20 | 6d 6f 75 73 65 75 70 00 |emp.end |mouseup.|
|000045b0| 00 2c 00 02 02 05 00 3d | 00 61 00 cf 00 9a 00 01 |.,.....=|.a......|
|000045c0| 00 00 00 00 ff ff 00 03 | 00 09 00 00 00 0c 67 72 |........|......gr|
|000045d0| 6f 73 73 54 6f 74 61 6c | 73 00 00 00 02 44 00 04 |ossTotal|s....D..|
|000045e0| 01 00 00 11 02 1c 00 24 | 02 6e b0 04 00 00 00 00 |.......$|.n......|
|000045f0| 00 01 00 03 00 09 01 00 | 00 0c 47 6f 20 74 6f 2e |........|..Go to.|
|00004600| 2e 2e 00 00 6f 6e 20 6d | 6f 75 73 65 44 6f 77 6e |....on m|ouseDown|
|00004610| 0d 67 6c 6f 62 61 6c 20 | 6d 65 6e 75 2c 74 68 65 |.global |menu,the|
|00004620| 4f 6c 64 53 74 61 74 75 | 73 0d 70 75 74 20 22 4a |OldStatu|s.put "J|
|00004630| 61 6e 75 61 72 79 22 20 | 26 20 72 65 74 75 72 6e |anuary" |& return|
|00004640| 20 26 20 22 46 65 62 72 | 75 61 72 79 22 20 26 20 | & "Febr|uary" & |
|00004650| 72 65 74 75 72 6e 20 26 | c2 0d 22 4d 61 72 63 68 |return &|.."March|
|00004660| 22 20 26 20 72 65 74 75 | 72 6e 20 26 20 22 41 70 |" & retu|rn & "Ap|
|00004670| 72 69 6c 22 20 26 20 72 | 65 74 75 72 6e 20 26 20 |ril" & r|eturn & |
|00004680| 22 4d 61 79 22 20 26 20 | 72 65 74 75 72 6e 20 26 |"May" & |return &|
|00004690| c2 0d 22 4a 75 6e 65 22 | 20 26 20 72 65 74 75 72 |.."June"| & retur|
|000046a0| 6e 20 26 20 22 4a 75 6c | 79 22 20 26 20 72 65 74 |n & "Jul|y" & ret|
|000046b0| 75 72 6e 20 26 20 22 41 | 75 67 75 73 74 22 20 26 |urn & "A|ugust" &|
|000046c0| 20 72 65 74 75 72 6e 20 | 26 c2 0d 22 53 65 70 74 | return |&.."Sept|
|000046d0| 65 6d 62 65 72 22 20 26 | 20 72 65 74 75 72 6e 20 |ember" &| return |
|000046e0| 26 20 22 4f 63 74 6f 62 | 65 72 22 20 26 20 72 65 |& "Octob|er" & re|
|000046f0| 74 75 72 6e 20 26 20 22 | 4e 6f 76 65 6d 62 65 72 |turn & "|November|
|00004700| 22 20 26 20 72 65 74 75 | 72 6e 20 26 c2 0d 22 44 |" & retu|rn &.."D|
|00004710| 65 63 65 6d 62 65 72 22 | 20 26 20 72 65 74 75 72 |ecember"| & retur|
|00004720| 6e 20 69 6e 74 6f 20 6d | 65 6e 75 0d 70 75 74 20 |n into m|enu.put |
|00004730| 69 74 65 6d 20 31 20 6f | 66 20 72 65 63 74 20 6f |item 1 o|f rect o|
|00004740| 66 20 74 68 65 20 74 61 | 72 67 65 74 20 26 20 22 |f the ta|rget & "|
|00004750| 2c 22 20 26 c2 0d 69 74 | 65 6d 20 34 20 6f 66 20 |," &..it|em 4 of |
|00004760| 72 65 63 74 20 6f 66 20 | 74 68 65 20 74 61 72 67 |rect of |the targ|
|00004770| 65 74 20 69 6e 74 6f 20 | 74 68 65 6c 6f 63 0d 67 |et into |theloc.g|
|00004780| 65 74 20 46 75 6c 6c 48 | 50 6f 70 28 6d 65 6e 75 |et FullH|Pop(menu|
|00004790| 2c 30 2c 74 68 65 6c 6f | 63 29 0d 73 65 74 20 68 |,0,thelo|c).set h|
|000047a0| 69 6c 69 74 65 20 6f 66 | 20 74 68 65 20 74 61 72 |ilite of| the tar|
|000047b0| 67 65 74 20 74 6f 20 66 | 61 6c 73 65 0d 69 66 20 |get to f|alse.if |
|000047c0| 69 74 20 69 73 20 65 6d | 70 74 79 20 74 68 65 6e |it is em|pty then|
|000047d0| 20 65 78 69 74 20 6d 6f | 75 73 65 64 6f 77 6e 0d | exit mo|usedown.|
|000047e0| 70 75 74 20 69 74 65 6d | 20 31 20 6f 66 20 69 74 |put item| 1 of it|
|000047f0| 20 69 6e 74 6f 20 74 68 | 65 43 68 6f 69 63 65 0d | into th|eChoice.|
|00004800| 67 6f 20 63 61 72 64 20 | 74 68 65 43 68 6f 69 63 |go card |theChoic|
|00004810| 65 0d 65 6e 64 20 6d 6f | 75 73 65 44 6f 77 6e 00 |e.end mo|useDown.|
|00004820| 00 28 00 05 02 04 00 cd | 00 52 00 db 00 9a 00 01 |.(......|.R......|
|00004830| 00 00 00 00 ff ff 00 03 | 00 09 01 00 00 0c 67 72 |........|......gr|
|00004840| 6f 73 73 59 00 00 00 00 | 00 28 00 08 02 05 00 4b |ossY....|.(.....K|
|00004850| 00 e4 00 ae 01 20 00 01 | 00 00 00 00 ff ff 00 10 |..... ..|........|
|00004860| 00 0c 01 00 00 10 6c 61 | 62 65 6c 73 00 00 00 00 |......la|bels....|
|00004870| 00 2a 00 09 02 05 00 4b | 01 49 00 ae 01 8b 00 01 |.*.....K|.I......|
|00004880| 00 00 00 00 ff ff 00 10 | 00 0c 00 00 00 10 62 72 |........|......br|
|00004890| 65 61 6b 64 6f 77 6e 00 | 00 00 01 08 00 0a 01 00 |eakdown.|........|
|000048a0| 00 00 00 00 00 11 02 80 | 00 00 00 00 00 00 00 01 |........|........|
|000048b0| 00 00 00 0c 00 00 00 10 | 00 00 6f 6e 20 6d 6f 75 |........|..on mou|
|000048c0| 73 65 45 6e 74 65 72 0d | 70 75 74 20 69 74 65 6d |seEnter.|put item|
|000048d0| 20 33 20 6f 66 20 74 68 | 65 20 73 63 72 65 65 6e | 3 of th|e screen|
|000048e0| 52 65 63 74 20 69 6e 74 | 6f 20 73 63 72 65 65 6e |Rect int|o screen|
|000048f0| 57 69 64 74 68 0d 69 66 | 20 73 63 72 65 65 6e 57 |Width.if| screenW|
|00004900| 69 64 74 68 20 3c 3d 20 | 36 34 30 20 74 68 65 6e |idth <= |640 then|
|00004910| 20 73 68 6f 77 20 6d 65 | 6e 75 62 61 72 0d 65 6e | show me|nubar.en|
|00004920| 64 20 6d 6f 75 73 65 45 | 6e 74 65 72 0d 0d 6f 6e |d mouseE|nter..on|
|00004930| 20 6d 6f 75 73 65 4c 65 | 61 76 65 0d 70 75 74 20 | mouseLe|ave.put |
|00004940| 69 74 65 6d 20 33 20 6f | 66 20 74 68 65 20 73 63 |item 3 o|f the sc|
|00004950| 72 65 65 6e 52 65 63 74 | 20 69 6e 74 6f 20 73 63 |reenRect| into sc|
|00004960| 72 65 65 6e 57 69 64 74 | 68 0d 69 66 20 73 63 72 |reenWidt|h.if scr|
|00004970| 65 65 6e 57 69 64 74 68 | 20 3c 3d 20 36 34 30 20 |eenWidth| <= 640 |
|00004980| 74 68 65 6e 20 68 69 64 | 65 20 6d 65 6e 75 62 61 |then hid|e menuba|
|00004990| 72 0d 65 6e 64 20 6d 6f | 75 73 65 4c 65 61 76 65 |r.end mo|useLeave|
|000049a0| 00 00 09 1a 00 0f 02 25 | 01 12 00 13 01 b6 02 6d |.......%|.......m|
|000049b0| 00 07 00 00 00 00 00 00 | 00 04 00 09 00 00 00 0c |........|........|
|000049c0| 61 72 43 6c 69 65 6e 74 | 00 00 6f 6e 20 6d 6f 75 |arClient|..on mou|
|000049d0| 73 65 75 70 0d 70 75 74 | 20 77 6f 72 64 20 32 20 |seup.put| word 2 |
|000049e0| 6f 66 20 74 68 65 20 63 | 6c 69 63 6b 6c 69 6e 65 |of the c|lickline|
|000049f0| 20 69 6e 74 6f 20 77 68 | 69 63 68 6c 69 6e 65 0d | into wh|ichline.|
|00004a00| 69 66 20 6c 69 6e 65 20 | 77 68 69 63 68 6c 69 6e |if line |whichlin|
|00004a10| 65 20 6f 66 20 62 67 20 | 66 6c 64 20 22 61 72 63 |e of bg |fld "arc|
|00004a20| 6c 69 65 6e 74 22 20 69 | 73 20 65 6d 70 74 79 20 |lient" i|s empty |
|00004a30| 74 68 65 6e 20 65 78 69 | 74 20 6d 6f 75 73 65 75 |then exi|t mouseu|
|00004a40| 70 0d 70 75 74 20 63 68 | 61 72 20 31 20 74 6f 20 |p.put ch|ar 1 to |
|00004a50| 31 32 20 6f 66 20 6c 69 | 6e 65 20 77 68 69 63 68 |12 of li|ne which|
|00004a60| 6c 69 6e 65 20 6f 66 20 | 62 67 20 66 6c 64 20 22 |line of |bg fld "|
|00004a70| 61 72 63 6c 69 65 6e 74 | 22 20 69 6e 74 6f 20 74 |arclient|" into t|
|00004a80| 68 65 64 61 74 65 0d 72 | 65 70 65 61 74 20 75 6e |hedate.r|epeat un|
|00004a90| 74 69 6c 20 63 68 61 72 | 20 31 20 6f 66 20 74 68 |til char| 1 of th|
|00004aa0| 65 64 61 74 65 20 ad 20 | 22 20 22 0d 64 65 6c 65 |edate . |" ".dele|
|00004ab0| 74 65 20 63 68 61 72 20 | 31 20 6f 66 20 74 68 65 |te char |1 of the|
|00004ac0| 64 61 74 65 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |date.end| repeat.|
|00004ad0| 72 65 70 65 61 74 20 75 | 6e 74 69 6c 20 6c 61 73 |repeat u|ntil las|
|00004ae0| 74 20 63 68 61 72 20 6f | 66 20 74 68 65 64 61 74 |t char o|f thedat|
|00004af0| 65 20 ad 20 22 20 22 0d | 64 65 6c 65 74 65 20 6c |e . " ".|delete l|
|00004b00| 61 73 74 20 63 68 61 72 | 20 6f 66 20 74 68 65 64 |ast char| of thed|
|00004b10| 61 74 65 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 0d |ate.end |repeat..|
|00004b20| 70 75 74 20 32 36 33 20 | 2b 20 28 77 68 69 63 68 |put 263 |+ (which|
|00004b30| 4c 69 6e 65 20 2a 20 31 | 31 29 20 2d 20 74 68 65 |Line * 1|1) - the|
|00004b40| 20 73 63 72 6f 6c 6c 20 | 6f 66 20 62 67 20 66 6c | scroll |of bg fl|
|00004b50| 64 20 22 61 72 63 6c 69 | 65 6e 74 22 20 69 6e 74 |d "arcli|ent" int|
|00004b60| 6f 20 74 68 65 48 65 69 | 67 68 74 0d 70 75 74 20 |o theHei|ght.put |
|00004b70| 74 68 65 20 72 65 63 74 | 20 6f 66 20 63 64 20 62 |the rect| of cd b|
|00004b80| 74 6e 20 22 66 6c 61 73 | 68 65 72 22 20 69 6e 74 |tn "flas|her" int|
|00004b90| 6f 20 72 0d 70 75 74 20 | 74 68 65 68 65 69 67 68 |o r.put |theheigh|
|00004ba0| 74 20 69 6e 74 6f 20 69 | 74 65 6d 20 32 20 6f 66 |t into i|tem 2 of|
|00004bb0| 20 72 0d 70 75 74 20 28 | 74 68 65 68 65 69 67 68 | r.put (|theheigh|
|00004bc0| 74 20 2b 20 31 32 29 20 | 69 6e 74 6f 20 69 74 65 |t + 12) |into ite|
|00004bd0| 6d 20 34 20 6f 66 20 72 | 0d 73 65 74 20 72 65 63 |m 4 of r|.set rec|
|00004be0| 74 20 6f 66 20 63 64 20 | 62 74 6e 20 22 66 6c 61 |t of cd |btn "fla|
|00004bf0| 73 68 65 72 22 20 74 6f | 20 72 0d 73 68 6f 77 20 |sher" to| r.show |
|00004c00| 63 64 20 62 74 6e 20 22 | 66 6c 61 73 68 65 72 22 |cd btn "|flasher"|
|00004c10| 0d 77 61 69 74 20 33 20 | 74 69 63 6b 73 0d 68 69 |.wait 3 |ticks.hi|
|00004c20| 64 65 20 63 64 20 62 74 | 6e 20 22 66 6c 61 73 68 |de cd bt|n "flash|
|00004c30| 65 72 22 0d 77 61 69 74 | 20 33 20 74 69 63 6b 73 |er".wait| 3 ticks|
|00004c40| 0d 73 68 6f 77 20 63 64 | 20 62 74 6e 20 22 66 6c |.show cd| btn "fl|
|00004c50| 61 73 68 65 72 22 0d 77 | 61 69 74 20 33 20 74 69 |asher".w|ait 3 ti|
|00004c60| 63 6b 73 0d 68 69 64 65 | 20 63 64 20 62 74 6e 20 |cks.hide| cd btn |
|00004c70| 22 66 6c 61 73 68 65 72 | 22 0d 77 61 69 74 20 33 |"flasher|".wait 3|
|00004c80| 20 74 69 63 6b 73 0d 73 | 68 6f 77 20 63 64 20 62 | ticks.s|how cd b|
|00004c90| 74 6e 20 22 66 6c 61 73 | 68 65 72 22 0d 70 75 74 |tn "flas|her".put|
|00004ca0| 20 63 68 61 72 20 31 33 | 20 74 6f 20 33 33 20 6f | char 13| to 33 o|
|00004cb0| 66 20 6c 69 6e 65 20 77 | 68 69 63 68 6c 69 6e 65 |f line w|hichline|
|00004cc0| 20 6f 66 20 62 67 20 66 | 6c 64 20 22 61 72 63 6c | of bg f|ld "arcl|
|00004cd0| 69 65 6e 74 22 20 69 6e | 74 6f 20 74 68 65 63 6c |ient" in|to thecl|
|00004ce0| 69 65 6e 74 0d 72 65 70 | 65 61 74 20 75 6e 74 69 |ient.rep|eat unti|
|00004cf0| 6c 20 63 68 61 72 20 31 | 20 6f 66 20 74 68 65 43 |l char 1| of theC|
|00004d00| 6c 69 65 6e 74 20 ad 20 | 22 20 22 0d 64 65 6c 65 |lient . |" ".dele|
|00004d10| 74 65 20 63 68 61 72 20 | 31 20 6f 66 20 74 68 65 |te char |1 of the|
|00004d20| 63 6c 69 65 6e 74 0d 65 | 6e 64 20 72 65 70 65 61 |client.e|nd repea|
|00004d30| 74 0d 72 65 70 65 61 74 | 20 75 6e 74 69 6c 20 6c |t.repeat| until l|
|00004d40| 61 73 74 20 63 68 61 72 | 20 6f 66 20 74 68 65 63 |ast char| of thec|
|00004d50| 6c 69 65 6e 74 20 ad 20 | 22 20 22 0d 64 65 6c 65 |lient . |" ".dele|
|00004d60| 74 65 20 6c 61 73 74 20 | 63 68 61 72 20 6f 66 20 |te last |char of |
|00004d70| 74 68 65 63 6c 69 65 6e | 74 0d 65 6e 64 20 72 65 |theclien|t.end re|
|00004d80| 70 65 61 74 0d 0d 69 66 | 20 63 68 61 72 20 32 20 |peat..if| char 2 |
|00004d90| 6f 66 20 74 68 65 64 61 | 74 65 20 3d 20 22 2f 22 |of theda|te = "/"|
|00004da0| 20 74 68 65 6e 0d 70 75 | 74 20 63 68 61 72 20 31 | then.pu|t char 1|
|00004db0| 20 6f 66 20 74 68 65 64 | 61 74 65 20 69 6e 74 6f | of thed|ate into|
|00004dc0| 20 74 68 65 6d 6f 6e 74 | 68 0d 65 6c 73 65 0d 70 | themont|h.else.p|
|00004dd0| 75 74 20 63 68 61 72 20 | 31 20 74 6f 20 32 20 6f |ut char |1 to 2 o|
|00004de0| 66 20 74 68 65 64 61 74 | 65 20 69 6e 74 6f 20 74 |f thedat|e into t|
|00004df0| 68 65 6d 6f 6e 74 68 0d | 65 6e 64 20 69 66 0d 0d |hemonth.|end if..|
|00004e00| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 67 6f 20 63 |lock scr|een.go c|
|00004e10| 64 20 28 74 68 65 6d 6f | 6e 74 68 20 2b 20 31 29 |d (themo|nth + 1)|
|00004e20| 0d 70 75 74 20 31 20 69 | 6e 74 6f 20 78 0d 72 65 |.put 1 i|nto x.re|
|00004e30| 70 65 61 74 20 66 6f 72 | 20 74 68 65 20 6e 75 6d |peat for| the num|
|00004e40| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 69 6e 20 |ber of l|ines in |
|00004e50| 62 67 20 66 6c 64 20 22 | 64 61 74 65 22 0d 73 65 |bg fld "|date".se|
|00004e60| 74 20 63 75 72 73 6f 72 | 20 74 6f 20 62 75 73 79 |t cursor| to busy|
|00004e70| 0d 69 66 20 6c 69 6e 65 | 20 78 20 6f 66 20 62 67 |.if line| x of bg|
|00004e80| 20 66 6c 64 20 22 64 61 | 74 65 22 20 3d 20 74 68 | fld "da|te" = th|
|00004e90| 65 64 61 74 65 20 61 6e | 64 c2 0d 6c 69 6e 65 20 |edate an|d..line |
|00004ea0| 78 20 6f 66 20 62 67 20 | 66 6c 64 20 22 63 6c 69 |x of bg |fld "cli|
|00004eb0| 65 6e 74 22 20 3d 20 74 | 68 65 43 6c 69 65 6e 74 |ent" = t|heClient|
|00004ec0| 20 61 6e 64 c2 0d 6c 69 | 6e 65 20 78 20 6f 66 20 | and..li|ne x of |
|00004ed0| 62 67 20 66 6c 64 20 22 | 64 61 74 65 70 61 69 64 |bg fld "|datepaid|
|00004ee0| 22 20 69 73 20 65 6d 70 | 74 79 20 74 68 65 6e 0d |" is emp|ty then.|
|00004ef0| 70 75 74 20 74 68 65 20 | 73 68 6f 72 74 20 64 61 |put the |short da|
|00004f00| 74 65 20 26 20 72 65 74 | 75 72 6e 20 26 20 6c 69 |te & ret|urn & li|
|00004f10| 6e 65 20 78 20 6f 66 20 | 62 67 20 66 6c 64 20 22 |ne x of |bg fld "|
|00004f20| 67 72 6f 73 73 22 20 26 | c2 0d 72 65 74 75 72 6e |gross" &|..return|
|00004f30| 20 26 20 6c 69 6e 65 20 | 78 20 6f 66 20 62 67 20 | & line |x of bg |
|00004f40| 66 6c 64 20 22 63 68 65 | 63 6b 4e 75 6d 62 65 72 |fld "che|ckNumber|
|00004f50| 22 20 69 6e 74 6f 20 64 | 65 66 61 75 6c 74 73 0d |" into d|efaults.|
|00004f60| 53 68 6f 77 44 69 61 6c | 6f 67 20 32 2c 34 37 34 |ShowDial|og 2,474|
|00004f70| 35 2c 22 44 61 74 65 20 | 50 61 69 64 3a 22 2c 22 |5,"Date |Paid:","|
|00004f80| 41 6d 74 2e 20 50 61 69 | 64 3a 22 2c 64 65 66 61 |Amt. Pai|d:",defa|
|00004f90| 75 6c 74 73 0d 70 75 74 | 20 74 68 65 20 72 65 73 |ults.put| the res|
|00004fa0| 75 6c 74 20 69 6e 74 6f | 20 74 68 65 52 65 73 75 |ult into| theResu|
|00004fb0| 6c 74 0d 69 66 20 6c 69 | 6e 65 20 31 20 6f 66 20 |lt.if li|ne 1 of |
|00004fc0| 74 68 65 72 65 73 75 6c | 74 20 69 73 20 65 6d 70 |theresul|t is emp|
|00004fd0| 74 79 20 6f 72 20 6c 69 | 6e 65 20 32 20 6f 66 20 |ty or li|ne 2 of |
|00004fe0| 74 68 65 72 65 73 75 6c | 74 20 69 73 20 65 6d 70 |theresul|t is emp|
|00004ff0| 74 79 20 74 68 65 6e 0d | 67 6f 20 63 64 20 31 0d |ty then.|go cd 1.|
|00005000| 68 69 64 65 20 63 64 20 | 62 74 6e 20 22 66 6c 61 |hide cd |btn "fla|
|00005010| 73 68 65 72 22 0d 65 78 | 69 74 20 6d 6f 75 73 65 |sher".ex|it mouse|
|00005020| 75 70 0d 65 6e 64 20 69 | 66 0d 0d 70 75 74 20 6c |up.end i|f..put l|
|00005030| 69 6e 65 20 32 20 6f 66 | 20 74 68 65 72 65 73 75 |ine 2 of| theresu|
|00005040| 6c 74 20 69 6e 74 6f 20 | 68 6f 77 6d 75 63 68 0d |lt into |howmuch.|
|00005050| 70 75 74 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |put the |number o|
|00005060| 66 20 63 68 61 72 73 20 | 69 6e 20 68 6f 77 6d 75 |f chars |in howmu|
|00005070| 63 68 20 69 6e 74 6f 20 | 6e 75 6d 63 68 61 72 73 |ch into |numchars|
|00005080| 0d 69 66 20 63 68 61 72 | 20 28 6e 75 6d 63 68 61 |.if char| (numcha|
|00005090| 72 73 20 2d 20 32 29 20 | 6f 66 20 68 6f 77 6d 75 |rs - 2) |of howmu|
|000050a0| 63 68 20 ad 20 22 2e 22 | 20 74 68 65 6e 0d 70 75 |ch . "."| then.pu|
|000050b0| 74 20 22 2e 22 20 61 66 | 74 65 72 20 63 68 61 72 |t "." af|ter char|
|000050c0| 20 28 6e 75 6d 63 68 61 | 72 73 20 2d 20 32 29 20 | (numcha|rs - 2) |
|000050d0| 6f 66 20 68 6f 77 6d 75 | 63 68 0d 65 6e 64 20 69 |of howmu|ch.end i|
|000050e0| 66 0d 70 75 74 20 6c 69 | 6e 65 20 31 20 6f 66 20 |f.put li|ne 1 of |
|000050f0| 74 68 65 72 65 73 75 6c | 74 20 69 6e 74 6f 20 77 |theresul|t into w|
|00005100| 68 65 6e 0d 70 75 74 20 | 6c 69 6e 65 20 33 20 6f |hen.put |line 3 o|
|00005110| 66 20 74 68 65 72 65 73 | 75 6c 74 20 69 6e 74 6f |f theres|ult into|
|00005120| 20 63 68 65 63 6b 4e 75 | 6d 62 65 72 0d 70 75 74 | checkNu|mber.put|
|00005130| 20 68 6f 77 6d 75 63 68 | 20 69 6e 74 6f 20 6c 69 | howmuch| into li|
|00005140| 6e 65 20 78 20 6f 66 20 | 62 67 20 66 6c 64 20 22 |ne x of |bg fld "|
|00005150| 67 72 6f 73 73 22 0d 70 | 75 74 20 68 6f 77 6d 75 |gross".p|ut howmu|
|00005160| 63 68 20 69 6e 74 6f 20 | 6c 69 6e 65 20 78 20 6f |ch into |line x o|
|00005170| 66 20 62 67 20 66 6c 64 | 20 22 6e 65 74 22 0d 70 |f bg fld| "net".p|
|00005180| 75 74 20 77 68 65 6e 20 | 69 6e 74 6f 20 6c 69 6e |ut when |into lin|
|00005190| 65 20 78 20 6f 66 20 62 | 67 20 66 6c 64 20 22 64 |e x of b|g fld "d|
|000051a0| 61 74 65 50 61 69 64 22 | 0d 70 75 74 20 63 68 65 |atePaid"|.put che|
|000051b0| 63 6b 4e 75 6d 62 65 72 | 20 69 6e 74 6f 20 6c 69 |ckNumber| into li|
|000051c0| 6e 65 20 78 20 6f 66 20 | 62 67 20 66 6c 64 20 22 |ne x of |bg fld "|
|000051d0| 63 68 65 63 6b 6e 75 6d | 62 65 72 22 0d 67 6f 20 |checknum|ber".go |
|000051e0| 63 64 20 31 0d 68 69 64 | 65 20 63 64 20 62 74 6e |cd 1.hid|e cd btn|
|000051f0| 20 22 66 6c 61 73 68 65 | 72 22 0d 64 65 6c 65 74 | "flashe|r".delet|
|00005200| 65 20 6c 69 6e 65 20 77 | 68 69 63 68 6c 69 6e 65 |e line w|hichline|
|00005210| 20 6f 66 20 62 67 20 66 | 6c 64 20 22 61 72 63 6c | of bg f|ld "arcl|
|00005220| 69 65 6e 74 22 0d 73 65 | 74 20 6e 75 6d 62 65 72 |ient".se|t number|
|00005230| 66 6f 72 6d 61 74 20 74 | 6f 20 22 30 2e 30 30 22 |format t|o "0.00"|
|00005240| 0d 70 75 74 20 62 67 20 | 66 6c 64 20 22 74 6f 74 |.put bg |fld "tot|
|00005250| 61 6c 64 75 65 22 20 2d | 20 68 6f 77 6d 75 63 68 |aldue" -| howmuch|
|00005260| 20 69 6e 74 6f 20 62 67 | 20 66 6c 64 20 22 74 6f | into bg| fld "to|
|00005270| 74 61 6c 64 75 65 22 0d | 65 78 69 74 20 6d 6f 75 |taldue".|exit mou|
|00005280| 73 65 75 70 0d 65 6c 73 | 65 0d 61 64 64 20 31 20 |seup.els|e.add 1 |
|00005290| 74 6f 20 78 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |to x.end| if.end |
|000052a0| 72 65 70 65 61 74 0d 67 | 6f 20 63 64 20 31 0d 65 |repeat.g|o cd 1.e|
|000052b0| 6e 64 20 6d 6f 75 73 65 | 75 70 0d 00 00 2a 00 11 |nd mouse|up...*..|
|000052c0| 02 05 01 b9 02 2c 01 c9 | 02 6c 00 01 00 00 00 00 |.....,..|.l......|
|000052d0| 00 00 00 03 00 09 01 00 | 00 0c 74 6f 74 61 6c 44 |........|..totalD|
|000052e0| 75 65 00 00 00 00 0e 46 | 00 13 01 00 00 59 02 1c |ue.....F|.....Y..|
|000052f0| 00 6c 02 6e b0 04 00 00 | 00 00 00 01 00 03 00 09 |.l.n....|........|
|00005300| 01 00 00 0c 53 65 61 72 | 63 68 2e 2e 2e 00 00 6f |....Sear|ch.....o|
|00005310| 6e 20 6d 6f 75 73 65 55 | 70 0d 70 75 74 20 65 6d |n mouseU|p.put em|
|00005320| 70 74 79 20 69 6e 74 6f | 20 73 65 6c 65 63 74 65 |pty into| selecte|
|00005330| 64 0d 70 75 74 20 30 20 | 69 6e 74 6f 20 67 72 6f |d.put 0 |into gro|
|00005340| 73 73 54 6f 74 61 6c 0d | 73 65 74 20 6e 75 6d 62 |ssTotal.|set numb|
|00005350| 65 72 66 6f 72 6d 61 74 | 20 74 6f 20 22 30 2e 30 |erformat| to "0.0|
|00005360| 30 22 0d 70 75 74 20 31 | 20 69 6e 74 6f 20 74 68 |0".put 1| into th|
|00005370| 65 49 6e 64 65 78 0d 61 | 73 6b 20 22 53 65 61 72 |eIndex.a|sk "Sear|
|00005380| 63 68 20 66 6f 72 20 77 | 68 61 74 20 63 6c 69 65 |ch for w|hat clie|
|00005390| 6e 74 3f 22 0d 69 66 20 | 69 74 20 69 73 20 65 6d |nt?".if |it is em|
|000053a0| 70 74 79 20 74 68 65 6e | 20 65 78 69 74 20 6d 6f |pty then| exit mo|
|000053b0| 75 73 65 55 70 0d 70 75 | 74 20 69 74 20 69 6e 74 |useUp.pu|t it int|
|000053c0| 6f 20 74 68 65 53 74 72 | 69 6e 67 0d 70 75 74 20 |o theStr|ing.put |
|000053d0| 22 53 65 61 72 63 68 69 | 6e 67 20 66 6f 72 20 22 |"Searchi|ng for "|
|000053e0| 20 26 20 71 75 6f 74 65 | 20 26 20 74 68 65 73 74 | & quote| & thest|
|000053f0| 72 69 6e 67 20 26 20 71 | 75 6f 74 65 20 69 6e 74 |ring & q|uote int|
|00005400| 6f 20 74 68 65 53 74 72 | 69 6e 67 78 0d 53 68 6f |o theStr|ingx.Sho|
|00005410| 77 50 72 6f 67 72 65 73 | 73 20 22 70 72 6f 67 72 |wProgres|s "progr|
|00005420| 65 73 73 22 2c 74 68 65 | 53 74 72 69 6e 67 78 2c |ess",the|Stringx,|
|00005430| 31 32 0d 70 75 74 20 31 | 20 69 6e 74 6f 20 78 0d |12.put 1| into x.|
|00005440| 70 75 74 20 22 49 54 45 | 4d 53 20 46 4f 55 4e 44 |put "ITE|MS FOUND|
|00005450| 3a 22 20 26 20 72 65 74 | 75 72 6e 20 26 c2 0d 22 |:" & ret|urn &.."|
|00005460| 53 65 61 72 63 68 20 73 | 74 72 69 6e 67 3a 20 22 |Search s|tring: "|
|00005470| 20 26 20 74 68 65 73 74 | 72 69 6e 67 20 26 20 72 | & thest|ring & r|
|00005480| 65 74 75 72 6e 20 26 20 | 72 65 74 75 72 6e 20 26 |eturn & |return &|
|00005490| c2 0d 22 20 20 20 20 44 | 41 54 45 20 20 20 20 20 |.."    D|ATE     |
|000054a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 43 4c |        |      CL|
|000054b0| 49 45 4e 54 20 20 20 20 | 20 20 20 20 20 20 20 20 |IENT    |        |
|000054c0| 20 20 20 20 20 20 20 20 | 20 20 20 50 52 4f 4a 45 |        |   PROJE|
|000054d0| 43 54 20 20 20 20 20 20 | 22 26 c2 0d 22 47 52 4f |CT      |"&.."GRO|
|000054e0| 53 53 20 20 41 4d 54 2e | 20 50 44 2e 20 20 57 48 |SS  AMT.| PD.  WH|
|000054f0| 45 4e 20 50 44 2e 22 20 | 26 20 72 65 74 75 72 6e |EN PD." |& return|
|00005500| 20 26 20 72 65 74 75 72 | 6e 20 69 6e 74 6f 20 62 | & retur|n into b|
|00005510| 67 20 66 6c 64 20 22 73 | 65 6c 65 63 74 69 76 65 |g fld "s|elective|
|00005520| 22 0d 73 65 74 20 74 65 | 78 74 73 74 79 6c 65 20 |".set te|xtstyle |
|00005530| 6f 66 20 6c 61 73 74 20 | 77 6f 72 64 20 6f 66 20 |of last |word of |
|00005540| 6c 69 6e 65 20 32 20 6f | 66 20 62 67 20 66 6c 64 |line 2 o|f bg fld|
|00005550| 20 22 73 65 6c 65 63 74 | 69 76 65 22 20 74 6f 20 | "select|ive" to |
|00005560| 62 6f 6c 64 0d 6c 6f 63 | 6b 20 73 63 72 65 65 6e |bold.loc|k screen|
|00005570| 0d 67 6f 20 6e 65 78 74 | 20 63 64 0d 72 65 70 65 |.go next| cd.repe|
|00005580| 61 74 20 66 6f 72 20 31 | 32 20 74 69 6d 65 73 0d |at for 1|2 times.|
|00005590| 73 65 74 20 74 68 65 20 | 69 6e 64 65 78 20 6f 66 |set the |index of|
|000055a0| 20 77 69 6e 64 6f 77 20 | 22 70 72 6f 67 72 65 73 | window |"progres|
|000055b0| 73 22 20 74 6f 20 74 68 | 65 49 6e 64 65 78 0d 72 |s" to th|eIndex.r|
|000055c0| 65 70 65 61 74 20 66 6f | 72 20 74 68 65 20 6e 75 |epeat fo|r the nu|
|000055d0| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 69 6e |mber of |lines in|
|000055e0| 20 62 67 20 66 6c 64 20 | 22 64 61 74 65 22 0d 73 | bg fld |"date".s|
|000055f0| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 62 75 73 |et curso|r to bus|
|00005600| 79 0d 69 66 20 6c 69 6e | 65 20 78 20 6f 66 20 62 |y.if lin|e x of b|
|00005610| 67 20 66 6c 64 20 22 63 | 6c 69 65 6e 74 22 20 63 |g fld "c|lient" c|
|00005620| 6f 6e 74 61 69 6e 73 20 | 74 68 65 53 74 72 69 6e |ontains |theStrin|
|00005630| 67 20 6f 72 c2 0d 6c 69 | 6e 65 20 78 20 6f 66 20 |g or..li|ne x of |
|00005640| 62 67 20 66 6c 64 20 22 | 70 72 6f 6a 65 63 74 22 |bg fld "|project"|
|00005650| 20 63 6f 6e 74 61 69 6e | 73 20 74 68 65 73 74 72 | contain|s thestr|
|00005660| 69 6e 67 20 6f 72 c2 0d | 6c 69 6e 65 20 78 20 6f |ing or..|line x o|
|00005670| 66 20 62 67 20 66 6c 64 | 20 22 64 61 74 65 22 20 |f bg fld| "date" |
|00005680| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 53 74 72 69 |contains| theStri|
|00005690| 6e 67 20 6f 72 c2 0d 6c | 69 6e 65 20 78 20 6f 66 |ng or..l|ine x of|
|000056a0| 20 62 67 20 66 6c 64 20 | 22 67 72 6f 73 73 22 20 | bg fld |"gross" |
|000056b0| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 73 74 72 69 |contains| thestri|
|000056c0| 6e 67 20 6f 72 c2 0d 6c | 69 6e 65 20 78 20 6f 66 |ng or..l|ine x of|
|000056d0| 20 62 67 20 66 6c 64 20 | 22 6e 65 74 22 20 63 6f | bg fld |"net" co|
|000056e0| 6e 74 61 69 6e 73 20 74 | 68 65 73 74 72 69 6e 67 |ntains t|hestring|
|000056f0| 20 6f 72 c2 0d 6c 69 6e | 65 20 78 20 6f 66 20 62 | or..lin|e x of b|
|00005700| 67 20 66 6c 64 20 22 63 | 61 74 65 67 6f 72 79 22 |g fld "c|ategory"|
|00005710| 20 63 6f 6e 74 61 69 6e | 73 20 74 68 65 73 74 72 | contain|s thestr|
|00005720| 69 6e 67 20 6f 72 c2 0d | 6c 69 6e 65 20 78 20 6f |ing or..|line x o|
|00005730| 66 20 62 67 20 66 6c 64 | 20 22 64 61 74 65 70 61 |f bg fld| "datepa|
|00005740| 69 64 22 20 63 6f 6e 74 | 61 69 6e 73 20 74 68 65 |id" cont|ains the|
|00005750| 73 74 72 69 6e 67 20 6f | 72 c2 0d 6c 69 6e 65 20 |string o|r..line |
|00005760| 78 20 6f 66 20 62 67 20 | 66 6c 64 20 22 73 74 75 |x of bg |fld "stu|
|00005770| 64 69 6f 22 20 63 6f 6e | 74 61 69 6e 73 20 74 68 |dio" con|tains th|
|00005780| 65 73 74 72 69 6e 67 20 | 74 68 65 6e 0d 69 66 20 |estring |then.if |
|00005790| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 |the numb|er of ch|
|000057a0| 61 72 73 20 69 6e 20 28 | 6c 69 6e 65 20 78 20 6f |ars in (|line x o|
|000057b0| 66 20 62 67 20 66 6c 64 | 20 22 64 61 74 65 22 29 |f bg fld| "date")|
|000057c0| 20 3c 20 38 20 74 68 65 | 6e 0d 70 75 74 20 22 20 | < 8 the|n.put " |
|000057d0| 22 20 61 66 74 65 72 20 | 73 65 6c 65 63 74 65 64 |" after |selected|
|000057e0| 0d 69 66 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |.if the |number o|
|000057f0| 66 20 63 68 61 72 73 20 | 69 6e 20 28 6c 69 6e 65 |f chars |in (line|
|00005800| 20 78 20 6f 66 20 62 67 | 20 66 6c 64 20 22 64 61 | x of bg| fld "da|
|00005810| 74 65 22 29 20 3c 20 37 | 20 74 68 65 6e 0d 70 75 |te") < 7| then.pu|
|00005820| 74 20 22 20 22 20 61 66 | 74 65 72 20 73 65 6c 65 |t " " af|ter sele|
|00005830| 63 74 65 64 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |cted.end| if.end |
|00005840| 69 66 0d 70 75 74 20 65 | 6d 70 74 79 20 69 6e 74 |if.put e|mpty int|
|00005850| 6f 20 73 70 61 63 65 72 | 0d 72 65 70 65 61 74 20 |o spacer|.repeat |
|00005860| 66 6f 72 20 33 30 20 2d | 20 28 74 68 65 20 6e 75 |for 30 -| (the nu|
|00005870| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 73 20 69 6e |mber of |chars in|
|00005880| 20 6c 69 6e 65 20 78 c2 | 0d 6f 66 20 62 67 20 66 | line x.|.of bg f|
|00005890| 6c 64 20 22 70 72 6f 6a | 65 63 74 22 29 0d 70 75 |ld "proj|ect").pu|
|000058a0| 74 20 22 20 22 20 61 66 | 74 65 72 20 73 70 61 63 |t " " af|ter spac|
|000058b0| 65 72 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 70 75 |er.end r|epeat.pu|
|000058c0| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 73 70 61 |t empty |into spa|
|000058d0| 63 65 72 32 0d 72 65 70 | 65 61 74 20 66 6f 72 20 |cer2.rep|eat for |
|000058e0| 32 35 20 2d 20 28 74 68 | 65 20 6e 75 6d 62 65 72 |25 - (th|e number|
|000058f0| 20 6f 66 20 63 68 61 72 | 73 20 69 6e 20 6c 69 6e | of char|s in lin|
|00005900| 65 20 78 c2 0d 6f 66 20 | 62 67 20 66 6c 64 20 22 |e x..of |bg fld "|
|00005910| 63 6c 69 65 6e 74 22 29 | 0d 70 75 74 20 22 20 22 |client")|.put " "|
|00005920| 20 61 66 74 65 72 20 73 | 70 61 63 65 72 32 0d 65 | after s|pacer2.e|
|00005930| 6e 64 20 72 65 70 65 61 | 74 0d 70 75 74 20 6c 69 |nd repea|t.put li|
|00005940| 6e 65 20 78 20 6f 66 20 | 62 67 20 66 6c 64 20 22 |ne x of |bg fld "|
|00005950| 64 61 74 65 22 20 26 20 | 73 70 61 63 65 72 32 20 |date" & |spacer2 |
|00005960| 26 20 6c 69 6e 65 20 78 | 20 6f 66 20 62 67 20 66 |& line x| of bg f|
|00005970| 6c 64 20 22 63 6c 69 65 | 6e 74 22 20 26 c2 0d 73 |ld "clie|nt" &..s|
|00005980| 70 61 63 65 72 20 26 20 | 6c 69 6e 65 20 78 20 6f |pacer & |line x o|
|00005990| 66 20 62 67 20 66 6c 64 | 20 22 70 72 6f 6a 65 63 |f bg fld| "projec|
|000059a0| 74 22 20 26 20 22 20 20 | 20 20 22 20 61 66 74 65 |t" & "  |  " afte|
|000059b0| 72 20 73 65 6c 65 63 74 | 65 64 0d 69 66 20 74 68 |r select|ed.if th|
|000059c0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 68 61 72 |e number| of char|
|000059d0| 73 20 69 6e 20 6c 69 6e | 65 20 78 20 6f 66 20 62 |s in lin|e x of b|
|000059e0| 67 20 66 6c 64 20 22 67 | 72 6f 73 73 22 20 3c 20 |g fld "g|ross" < |
|000059f0| 37 20 74 68 65 6e 0d 70 | 75 74 20 22 20 22 20 61 |7 then.p|ut " " a|
|00005a00| 66 74 65 72 20 73 65 6c | 65 63 74 65 64 0d 69 66 |fter sel|ected.if|
|00005a10| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|00005a20| 68 61 72 73 20 69 6e 20 | 6c 69 6e 65 20 78 20 6f |hars in |line x o|
|00005a30| 66 20 62 67 20 66 6c 64 | 20 22 67 72 6f 73 73 22 |f bg fld| "gross"|
|00005a40| 20 3c 20 36 20 74 68 65 | 6e 0d 70 75 74 20 22 20 | < 6 the|n.put " |
|00005a50| 22 20 61 66 74 65 72 20 | 73 65 6c 65 63 74 65 64 |" after |selected|
|00005a60| 0d 69 66 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |.if the |number o|
|00005a70| 66 20 63 68 61 72 73 20 | 69 6e 20 6c 69 6e 65 20 |f chars |in line |
|00005a80| 78 20 6f 66 20 62 67 20 | 66 6c 64 20 22 67 72 6f |x of bg |fld "gro|
|00005a90| 73 73 22 20 3c 20 35 20 | 74 68 65 6e 0d 70 75 74 |ss" < 5 |then.put|
|00005aa0| 20 22 20 22 20 61 66 74 | 65 72 20 73 65 6c 65 63 | " " aft|er selec|
|00005ab0| 74 65 64 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |ted.end |if.end i|
|00005ac0| 66 0d 65 6e 64 20 69 66 | 0d 70 75 74 20 6c 69 6e |f.end if|.put lin|
|00005ad0| 65 20 78 20 6f 66 20 62 | 67 20 66 6c 64 20 22 67 |e x of b|g fld "g|
|00005ae0| 72 6f 73 73 22 20 61 66 | 74 65 72 20 73 65 6c 65 |ross" af|ter sele|
|00005af0| 63 74 65 64 0d 61 64 64 | 20 6c 69 6e 65 20 78 20 |cted.add| line x |
|00005b00| 6f 66 20 62 67 20 66 6c | 64 20 22 67 72 6f 73 73 |of bg fl|d "gross|
|00005b10| 22 20 74 6f 20 67 72 6f | 73 73 54 6f 74 61 6c 0d |" to gro|ssTotal.|
|00005b20| 69 66 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |if the n|umber of|
|00005b30| 20 63 68 61 72 73 20 69 | 6e 20 6c 69 6e 65 20 78 | chars i|n line x|
|00005b40| 20 6f 66 20 62 67 20 66 | 6c 64 20 22 6e 65 74 22 | of bg f|ld "net"|
|00005b50| 20 3c 20 37 20 74 68 65 | 6e 0d 70 75 74 20 22 20 | < 7 the|n.put " |
|00005b60| 22 20 61 66 74 65 72 20 | 73 65 6c 65 63 74 65 64 |" after |selected|
|00005b70| 0d 69 66 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |.if the |number o|
|00005b80| 66 20 63 68 61 72 73 20 | 69 6e 20 6c 69 6e 65 20 |f chars |in line |
|00005b90| 78 20 6f 66 20 62 67 20 | 66 6c 64 20 22 6e 65 74 |x of bg |fld "net|
|00005ba0| 22 20 3c 20 36 20 74 68 | 65 6e 0d 70 75 74 20 22 |" < 6 th|en.put "|
|00005bb0| 20 22 20 61 66 74 65 72 | 20 73 65 6c 65 63 74 65 | " after| selecte|
|00005bc0| 64 0d 69 66 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |d.if the| number |
|00005bd0| 6f 66 20 63 68 61 72 73 | 20 69 6e 20 6c 69 6e 65 |of chars| in line|
|00005be0| 20 78 20 6f 66 20 62 67 | 20 66 6c 64 20 22 6e 65 | x of bg| fld "ne|
|00005bf0| 74 22 20 3c 20 35 20 74 | 68 65 6e 0d 70 75 74 20 |t" < 5 t|hen.put |
|00005c00| 22 20 22 20 61 66 74 65 | 72 20 73 65 6c 65 63 74 |" " afte|r select|
|00005c10| 65 64 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |ed.end i|f.end if|
|00005c20| 0d 65 6e 64 20 69 66 0d | 70 75 74 20 22 20 20 22 |.end if.|put "  "|
|00005c30| 20 26 20 6c 69 6e 65 20 | 78 20 6f 66 20 62 67 20 | & line |x of bg |
|00005c40| 66 6c 64 20 22 6e 65 74 | 22 20 26 20 22 20 20 22 |fld "net|" & "  "|
|00005c50| 20 61 66 74 65 72 20 73 | 65 6c 65 63 74 65 64 0d | after s|elected.|
|00005c60| 70 75 74 20 6c 69 6e 65 | 20 78 20 6f 66 20 62 67 |put line| x of bg|
|00005c70| 20 66 6c 64 20 22 64 61 | 74 65 50 61 69 64 22 20 | fld "da|tePaid" |
|00005c80| 69 6e 74 6f 20 64 61 74 | 65 50 61 69 64 0d 69 66 |into dat|ePaid.if|
|00005c90| 20 6c 69 6e 65 20 78 20 | 6f 66 20 62 67 20 66 6c | line x |of bg fl|
|00005ca0| 64 20 22 64 61 74 65 70 | 61 69 64 22 20 69 73 20 |d "datep|aid" is |
|00005cb0| 65 6d 70 74 79 20 74 68 | 65 6e 0d 70 75 74 20 22 |empty th|en.put "|
|00005cc0| 2a 2a 2a 2a 2a 22 20 69 | 6e 74 6f 20 64 61 74 65 |*****" i|nto date|
|00005cd0| 70 61 69 64 0d 65 6e 64 | 20 69 66 0d 70 75 74 20 |paid.end| if.put |
|00005ce0| 65 6d 70 74 79 20 69 6e | 74 6f 20 73 70 61 63 65 |empty in|to space|
|00005cf0| 72 33 0d 72 65 70 65 61 | 74 20 66 6f 72 20 38 20 |r3.repea|t for 8 |
|00005d00| 2d 20 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |- (the n|umber of|
|00005d10| 20 63 68 61 72 73 20 69 | 6e 20 64 61 74 65 50 61 | chars i|n datePa|
|00005d20| 69 64 29 0d 70 75 74 20 | 22 20 22 20 61 66 74 65 |id).put |" " afte|
|00005d30| 72 20 73 70 61 63 65 72 | 33 0d 65 6e 64 20 72 65 |r spacer|3.end re|
|00005d40| 70 65 61 74 0d 70 75 74 | 20 73 70 61 63 65 72 33 |peat.put| spacer3|
|00005d50| 20 26 20 64 61 74 65 70 | 61 69 64 20 61 66 74 65 | & datep|aid afte|
|00005d60| 72 20 73 65 6c 65 63 74 | 65 64 0d 70 75 74 20 72 |r select|ed.put r|
|00005d70| 65 74 75 72 6e 20 61 66 | 74 65 72 20 73 65 6c 65 |eturn af|ter sele|
|00005d80| 63 74 65 64 0d 65 6e 64 | 20 69 66 0d 70 75 74 20 |cted.end| if.put |
|00005d90| 78 20 2b 20 31 20 69 6e | 74 6f 20 78 0d 65 6e 64 |x + 1 in|to x.end|
|00005da0| 20 72 65 70 65 61 74 0d | 67 6f 20 6e 65 78 74 20 | repeat.|go next |
|00005db0| 63 64 0d 70 75 74 20 31 | 20 69 6e 74 6f 20 78 0d |cd.put 1| into x.|
|00005dc0| 70 75 74 20 74 68 65 49 | 6e 64 65 78 20 2b 20 31 |put theI|ndex + 1|
|00005dd0| 20 69 6e 74 6f 20 74 68 | 65 49 6e 64 65 78 0d 65 | into th|eIndex.e|
|00005de0| 6e 64 20 72 65 70 65 61 | 74 0d 67 6f 20 66 69 72 |nd repea|t.go fir|
|00005df0| 73 74 20 63 64 0d 69 66 | 20 73 65 6c 65 63 74 65 |st cd.if| selecte|
|00005e00| 64 20 69 73 20 6e 6f 74 | 20 65 6d 70 74 79 20 74 |d is not| empty t|
|00005e10| 68 65 6e 20 70 75 74 20 | 73 65 6c 65 63 74 65 64 |hen put |selected|
|00005e20| 20 61 66 74 65 72 20 62 | 67 20 66 6c 64 20 22 73 | after b|g fld "s|
|00005e30| 65 6c 65 63 74 69 76 65 | 22 0d 70 75 74 20 72 65 |elective|".put re|
|00005e40| 74 75 72 6e 20 26 20 22 | d7 20 41 76 65 72 61 67 |turn & "|. Averag|
|00005e50| 65 20 70 61 69 64 20 70 | 65 72 20 70 72 6f 6a 65 |e paid p|er proje|
|00005e60| 63 74 3a 20 20 24 22 20 | 26 c2 0d 28 67 72 6f 73 |ct:  $" |&..(gros|
|00005e70| 73 54 6f 74 61 6c 20 2f | 20 28 74 68 65 20 6e 75 |sTotal /| (the nu|
|00005e80| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 69 6e |mber of |lines in|
|00005e90| 20 73 65 6c 65 63 74 65 | 64 29 29 c2 0d 26 20 72 | selecte|d))..& r|
|00005ea0| 65 74 75 72 6e 20 61 66 | 74 65 72 20 62 67 20 66 |eturn af|ter bg f|
|00005eb0| 6c 64 20 22 73 65 6c 65 | 63 74 69 76 65 22 0d 73 |ld "sele|ctive".s|
|00005ec0| 65 74 20 74 65 78 74 73 | 74 79 6c 65 20 6f 66 20 |et texts|tyle of |
|00005ed0| 6c 61 73 74 20 77 6f 72 | 64 20 6f 66 20 6c 61 73 |last wor|d of las|
|00005ee0| 74 20 6c 69 6e 65 20 6f | 66 20 62 67 20 66 6c 64 |t line o|f bg fld|
|00005ef0| 20 22 73 65 6c 65 63 74 | 69 76 65 22 20 74 6f 20 | "select|ive" to |
|00005f00| 62 6f 6c 64 0d 70 75 74 | 20 22 d7 20 54 6f 74 61 |bold.put| ". Tota|
|00005f10| 6c 20 70 61 69 64 3a 20 | 20 24 22 20 26 20 67 72 |l paid: | $" & gr|
|00005f20| 6f 73 73 54 6f 74 61 6c | 20 61 66 74 65 72 20 62 |ossTotal| after b|
|00005f30| 67 20 66 6c 64 20 22 73 | 65 6c 65 63 74 69 76 65 |g fld "s|elective|
|00005f40| 22 0d 73 65 74 20 74 65 | 78 74 73 74 79 6c 65 20 |".set te|xtstyle |
|00005f50| 6f 66 20 6c 61 73 74 20 | 77 6f 72 64 20 6f 66 20 |of last |word of |
|00005f60| 6c 61 73 74 20 6c 69 6e | 65 20 6f 66 20 62 67 20 |last lin|e of bg |
|00005f70| 66 6c 64 20 22 73 65 6c | 65 63 74 69 76 65 22 20 |fld "sel|ective" |
|00005f80| 74 6f 20 62 6f 6c 64 0d | 63 6c 6f 73 65 20 77 69 |to bold.|close wi|
|00005f90| 6e 64 6f 77 20 22 70 72 | 6f 67 72 65 73 73 22 0d |ndow "pr|ogress".|
|00005fa0| 69 66 20 73 65 6c 65 63 | 74 65 64 20 69 73 20 6e |if selec|ted is n|
|00005fb0| 6f 74 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 73 65 |ot empty| then.se|
|00005fc0| 74 20 74 65 78 74 66 6f | 6e 74 20 6f 66 20 6c 69 |t textfo|nt of li|
|00005fd0| 6e 65 20 31 20 6f 66 20 | 62 67 20 66 6c 64 20 22 |ne 1 of |bg fld "|
|00005fe0| 73 65 6c 65 63 74 69 76 | 65 22 20 74 6f 20 68 65 |selectiv|e" to he|
|00005ff0| 6c 76 65 74 69 63 61 0d | 73 65 74 20 74 65 78 74 |lvetica.|set text|
|00006000| 73 69 7a 65 20 6f 66 20 | 6c 69 6e 65 20 31 20 6f |size of |line 1 o|
|00006010| 66 20 62 67 20 66 6c 64 | 20 22 73 65 6c 65 63 74 |f bg fld| "select|
|00006020| 69 76 65 22 20 74 6f 20 | 32 34 0d 73 68 6f 77 20 |ive" to |24.show |
|00006030| 62 67 20 66 6c 64 20 22 | 73 65 6c 65 63 74 69 76 |bg fld "|selectiv|
|00006040| 65 22 0d 73 68 6f 77 20 | 62 67 20 62 74 6e 20 22 |e".show |bg btn "|
|00006050| 63 6c 6f 73 65 22 0d 73 | 68 6f 77 20 62 67 20 62 |close".s|how bg b|
|00006060| 74 6e 20 22 70 72 69 6e | 74 22 0d 73 68 6f 77 20 |tn "prin|t".show |
|00006070| 62 67 20 62 74 6e 20 22 | 64 65 66 69 6e 65 20 73 |bg btn "|define s|
|00006080| 65 61 72 63 68 2e 2e 2e | 22 0d 65 6c 73 65 0d 68 |earch...|".else.h|
|00006090| 69 64 65 20 62 67 20 66 | 6c 64 20 22 73 65 6c 65 |ide bg f|ld "sele|
|000060a0| 63 74 69 76 65 22 0d 68 | 69 64 65 20 62 67 20 62 |ctive".h|ide bg b|
|000060b0| 74 6e 20 22 63 6c 6f 73 | 65 22 0d 68 69 64 65 20 |tn "clos|e".hide |
|000060c0| 62 67 20 62 74 6e 20 22 | 70 72 69 6e 74 22 0d 68 |bg btn "|print".h|
|000060d0| 69 64 65 20 62 67 20 62 | 74 6e 20 22 64 65 66 69 |ide bg b|tn "defi|
|000060e0| 6e 65 20 73 65 61 72 63 | 68 2e 2e 2e 22 0d 75 6e |ne searc|h...".un|
|000060f0| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 61 6e 73 77 |lock scr|een.answ|
|00006100| 65 72 20 22 4e 6f 20 6d | 61 74 63 68 65 73 20 66 |er "No m|atches f|
|00006110| 6f 75 6e 64 2e 22 0d 65 | 6e 64 20 69 66 0d 65 6e |ound.".e|nd if.en|
|00006120| 64 20 6d 6f 75 73 65 75 | 70 0d 00 00 00 28 00 16 |d mouseu|p....(..|
|00006130| 02 04 00 13 00 17 00 2a | 00 59 00 00 00 00 00 00 |.......*|.Y......|
|00006140| ff ff 00 15 00 18 00 00 | 00 20 74 68 65 59 65 61 |........|. theYea|
|00006150| 72 00 00 00 00 2c 00 1f | 02 25 00 4b 01 1f 00 ae |r....,..|.%.K....|
|00006160| 01 4a 00 01 00 00 00 00 | ff ff 00 10 00 0c 00 00 |.J......|........|
|00006170| 00 10 70 65 72 63 65 6e | 74 61 67 65 73 00 00 00 |..percen|tages...|
|00006180| 00 2c 00 21 02 85 01 5e | 00 54 01 71 00 9f 00 02 |.,.!...^|.T.q....|
|00006190| 00 00 00 00 00 00 00 03 | 00 09 00 00 00 0c 6c 61 |........|......la|
|000061a0| 73 74 55 70 64 61 74 65 | 00 00 00 00 0b 5e 00 22 |stUpdate|.....^."|
|000061b0| 01 00 00 41 02 1c 00 54 | 02 6e b0 04 00 00 00 00 |...A...T|.n......|
|000061c0| 00 01 00 03 00 09 01 00 | 00 0c 4d 61 6b 65 20 52 |........|..Make R|
|000061d0| 65 70 6f 72 74 00 00 6f | 6e 20 6d 6f 75 73 65 55 |eport..o|n mouseU|
|000061e0| 70 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 70 75 |p.lock s|creen.pu|
|000061f0| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 74 68 65 |t empty |into the|
|00006200| 4c 69 73 74 0d 70 75 74 | 20 28 62 67 20 66 6c 64 |List.put| (bg fld|
|00006210| 20 22 74 68 65 59 65 61 | 72 22 20 6f 66 20 63 64 | "theYea|r" of cd|
|00006220| 20 31 29 20 26 20 22 20 | 52 65 70 6f 72 74 22 20 | 1) & " |Report" |
|00006230| 69 6e 74 6f 20 74 68 65 | 46 69 6c 65 4e 61 6d 65 |into the|FileName|
|00006240| 0d 0d 70 75 74 20 32 20 | 69 6e 74 6f 20 78 0d 72 |..put 2 |into x.r|
|00006250| 65 70 65 61 74 20 66 6f | 72 20 31 32 20 74 69 6d |epeat fo|r 12 tim|
|00006260| 65 73 0d 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |es.set c|ursor to|
|00006270| 20 62 75 73 79 0d 67 6f | 20 63 64 20 78 0d 70 75 | busy.go| cd x.pu|
|00006280| 74 20 31 20 69 6e 74 6f | 20 79 0d 72 65 70 65 61 |t 1 into| y.repea|
|00006290| 74 20 66 6f 72 20 74 68 | 65 20 6e 75 6d 62 65 72 |t for th|e number|
|000062a0| 20 6f 66 20 6c 69 6e 65 | 73 20 69 6e 20 62 67 20 | of line|s in bg |
|000062b0| 66 6c 64 20 22 64 61 74 | 65 22 0d 69 66 20 6c 69 |fld "dat|e".if li|
|000062c0| 6e 65 20 79 20 6f 66 20 | 62 67 20 66 6c 64 20 22 |ne y of |bg fld "|
|000062d0| 63 6c 69 65 6e 74 22 20 | 63 6f 6e 74 61 69 6e 73 |client" |contains|
|000062e0| 20 22 2c 22 20 74 68 65 | 6e 0d 70 75 74 20 31 20 | "," the|n.put 1 |
|000062f0| 69 6e 74 6f 20 78 78 0d | 70 75 74 20 6c 69 6e 65 |into xx.|put line|
|00006300| 20 79 20 6f 66 20 62 67 | 20 66 6c 64 20 22 63 6c | y of bg| fld "cl|
|00006310| 69 65 6e 74 22 20 69 6e | 74 6f 20 74 65 6d 70 0d |ient" in|to temp.|
|00006320| 72 65 70 65 61 74 0d 69 | 66 20 63 68 61 72 20 78 |repeat.i|f char x|
|00006330| 78 20 6f 66 20 74 65 6d | 70 20 3d 20 22 2c 22 20 |x of tem|p = "," |
|00006340| 74 68 65 6e 0d 64 65 6c | 65 74 65 20 63 68 61 72 |then.del|ete char|
|00006350| 20 78 78 20 6f 66 20 74 | 65 6d 70 0d 65 78 69 74 | xx of t|emp.exit|
|00006360| 20 72 65 70 65 61 74 0d | 65 6c 73 65 0d 70 75 74 | repeat.|else.put|
|00006370| 20 78 78 20 2b 20 31 20 | 69 6e 74 6f 20 78 78 0d | xx + 1 |into xx.|
|00006380| 65 6e 64 20 69 66 0d 65 | 6e 64 20 72 65 70 65 61 |end if.e|nd repea|
|00006390| 74 0d 65 6c 73 65 0d 70 | 75 74 20 6c 69 6e 65 20 |t.else.p|ut line |
|000063a0| 79 20 6f 66 20 62 67 20 | 66 6c 64 20 22 63 6c 69 |y of bg |fld "cli|
|000063b0| 65 6e 74 22 20 69 6e 74 | 6f 20 74 65 6d 70 0d 65 |ent" int|o temp.e|
|000063c0| 6e 64 20 69 66 0d 70 75 | 74 20 74 65 6d 70 20 26 |nd if.pu|t temp &|
|000063d0| 20 22 2c 22 20 26 20 6c | 69 6e 65 20 79 20 6f 66 | "," & l|ine y of|
|000063e0| 20 62 67 20 66 6c 64 20 | 22 67 72 6f 73 73 22 20 | bg fld |"gross" |
|000063f0| 26 c2 0d 22 2c 22 20 26 | 20 6c 69 6e 65 20 79 20 |&.."," &| line y |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.